#!perl -w
use strict;
my $end = shift || 40;
my $i = merge_multiple(@ARGV ? @ARGV : (2,3,5));

print $i->(),"\n" for 1 .. $end;

sub merge_multiple {
    my $last = 0;