forspll/test.fp

(
  ; core utilities
  ($_)                $drop
  ($x $y ^x ^y)       $swap
  ($a $b $c ^b ^a ^c) $rot
  (sub)               $-
  (0 swap - -)        $+
  ($x x)              $force
  (32 emit)           $bl
  (10 emit)           $cr

  ; if-stmt
  (force cswap drop force)   $if
  ($f $t $c $fn ^f ^t ^c fn) $endif

  ; range
  ($self $fn $start $end
    ^if (^start ^end eq) ()
      (^start fn ^end ^start 1 + ^fn self)
    endif
  ) $each

  10 0 ($i 10 0 ($j ^i 48 + emit ^j 48 + emit bl) each) each
  cr
)