$n=<>; $n*=0.0001;
print "                                               decimal                                             \r\n";
print "           $n                  \r\n";
print "\n";