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