( out$"Number of rows? "
& get':?R
& -1:?I
&   whl
  ' ( 1+!I:<!R:?I
    & 1:?C
    & -1:?K
    & !R+-1*!I:?tabs
    & whl'(!tabs+-1:>0:?tabs&put$\t)
    &   whl
      ' ( 1+!K:~>!I:?K
        & put$(!C \t\t)
        & !C*(!I+-1*!K)*(!K+1)^-1:?C
        )
    & put$\n
    )
&
)