use Getopt::Long;
 
sub power { return exp( $_[0] ) }
sub log2  { return log( $_[0] )/log(2.0) }
sub loge  { return log( $_[0] ) }
sub log10 { return log( $_[0] )/log(10.0) }
sub round {
        my $n = shift;
        return int($n + 0.5) if ($n >= 0);
        return int($n - 0.5);
}
sub trunc { return int($_[0]) }
sub f1    { return sprintf "%.1f", $_[0] }
sub f2    { return sprintf "%.2f", $_[0] }
sub f3    { return sprintf "%.3f", $_[0] }
sub f4    { return sprintf "%.4f", $_[0] }
sub f5    { return sprintf "%.5f", $_[0] }
 
sub closure {
    my($sub, $arg) = @_;
    return sub { $sub->( &$arg ) }
}
 
my %opts = map { $_ => 1 }  qw( power log2 loge log10 round trunc f1 f2 f3 f4 f5 );
 
my $func = sub { return shift };
 
while (my $arg = pop(@ARGV) ) {
        $arg =~ s/^\-+//;
        if (defined ($opts{$arg})) {
                $func = closure( eval '\&' . $arg , $func );
        } else {
                print STDERR "Unknown arg: $arg\n";
        }
}
 
while (<STDIN> ) {
        chop;
        my @in = split;
        print shift(@in), " ";
        print join(" ", map { $func->($_) } @in), "\n";
}