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