0:?i
&   whl
  ' ( !i+1:~>5:?i
    & 0:?k
    & whl'(!k+1:~>!i:?k&put$"*")
    & put$\n
    )
&
);