sub input {
    my $r = shift;