sub f{($;+=<>-print"@_$_
")&&f("   @_$_."),++$;for 1..3}f