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