sub input
{
    print @_;
    my $r = <STDIN>;
    chomp $r;
    return $r;
}