#!/usr/local/bin/perl

$number = <STDIN>;
if ($number =~ /\.|[eE]/) {
        printf ("in exponential form: %e\n", $number);
        printf ("in fixed-point form: %f\n", $number);
} else {
        printf ("in decimal form: %d\n", $number);
        printf ("in octal form: %o\n", $number);
        printf ("in hexadecimal form: %x\n", $number);
}
