external function PutNumBin(n).
external function PutChar(n).

function bigalg(n),
set inner to 0.
set outer to 0.
set count to 0.
set tmp to 0.
loop,
  if outer >= n,
    break.
  !
  loop,
    if inner >= n,
      break.
    !
    change count to count + 1.
    change inner to inner + 1.
  !
  change tmp to PutNumBin(count).
  change tmp to PutChar('\n').
  change count to count + 1.
  change outer to outer + 1.
  change inner to 0.
!
!
set n to 1000.
change n to bigalg(n).