my $num = shift or die "num?\n";

for my $i (0 .. $num) {

    my @in  = map { "input$_"  } (0..int(rand(100)));
    my @out = map { "output$_" } (0..int(rand(100)));

    print "begfoo FOO_$i (\n", join(",\n", @in, @out), ");\n";
    print "  input  $_;\n" foreach @in;
    print "  output $_;\n" foreach @out;
    print "  foo inst$_ (j, k, l, m, n, o, p);\n" foreach 0 .. int(rand(100));
    print "endfoo\n\n";
}