sub input {
    my $f = shift;
    my $r = $f->r;