sub f{@_-$'||print"@_$/";f(@_,$_)for$_[-1]+1..$`}<>=~/ /;f