====================== Whitespace Interpreter

::

    # S:=space, T:=tab, L:=Line Feed
    S (?: S ([ST][ST]+)L            |   # push n
          TS([ST][ST]+)L            |   # copy n-th item
          TL([ST][ST]+)L            |   # slide n items
          LS()                      |   # dup
          LT()                      |   # swap
          LL()                      )|  # drop
    TS(?: SS()|ST()|SL()|TS()|TT()  )|  # + - * // %
    TT(?: S ()|T ()                 )|  # store retrieve
    TL(?: SS()|ST()|TS()|TT() )|        # putchar putnum getchar getnum
    L (?: SS([ST]+)L                |   # set label
          ST([ST]+)L                |   # call subroutine
          SL([ST]+)L                |   # jump to label
          TS([ST]+)L                |   # jump to label if push ==0
          TT([ST]+)L                |   # jump to label if push < 0
          TL()                      |   # end subroutine
          LL()                      )   # end program