[ stack ]                                        is switch.arg (       --> [     )

  [ switch.arg put ]                               is switch     (     x -->       )

  [ switch.arg release ]                           is otherwise  (       -->       )

  [ switch.arg share!= iff ]else[ done  
    otherwise  ]'[ do ]done[ ]                     is case       (     x -->       )

  [ dip tuck unrot poke swap ]                     is poketape   ( [ n n --> [ n   )

  [ 1+ over size over = if [ dip [ 0 join ] ] ]    is stepright  (   [ n --> [ n   )

  [ dup 0 = iff [ 0 rot join swap ] else [ 1 - ] ] is stepleft   (   [ n --> [ n   )

  [ 2dup peek 1 + poketape ]                       is increment  (   [ n --> [ n   )

  [ 2dup peek 1 - poketape ]                       is decrement  (   [ n --> [ n   )

  [ 2dup peek emit ]                               is print      (   [ n --> [ n   )

  [ temp take dup $  = iff 0 else behead
    swap temp put poketape ]                       is getchar    (   [ n --> [ n   )

  [ 2dup peek 0 = ]                                is zero       (   [ n --> [ n b )

  [ temp put $  swap witheach
      [ switch
        [ char > case [ $       join ]
          char < case [ $        join ] 
          char + case [ $       join ]
          char - case [ $       join ]
          char . case [ $           join ] 
          char , case [ $         join ]
          char [ case [ $  join ] 
          char ] case [ $    join ] 
          otherwise ( ignore ) ] ]
    0 nested 0 rot quackery temp release 2drop ]   is brainf***  (   $ $ -->       )