#!/usr/bin/perl

$argc = scalar @ARGV;

if($argc == 1)
{
  $ab = hex($ARGV[0]);
}
else
{
  $a = hex($ARGV[0]);
  $b = hex($ARGV[1]);
  $ab = ($a<<22)|$b;
}
for($i = 0; $i<4; $i++)
{
  $v = ($ab>>((3-$i)*10+2))&1023;
  print $v.(($i==3)?"\n":"/");
}