#!/usr/bin/perl
use strict;
use warnings;
sub f {
1;
}
sub g {
2;
}
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKCnN1YiBmIHsKICAgIHByaW50ICJhXG4iOwogICAgMTsKfQoKc3ViIGcgewogICAgZ290byAmZjsKICAgIHByaW50ICJiXG4iOwogICAgMjsKfQoKcHJpbnQgZyAuICJcbiI7