@a=@b=@@=0..<>;<>;@@[$_,$_+1]=@@[$_+1,$_]for<>;0until@a=@a[@@],++$\,@a~~@b;print