0sp                               - init backup cell to "0"
   ir                             - read input as codepoints and reverse stack
     [                          ] - loops once for each input char
      ';=                         - is it a ";"?
         [    ]p                  - then clause if true
          l                       - load the accumulate value
           +                      - increment by 1 ("if" result is on stack)
            s                     - update backup cell
             !                    - change top of stack to "0" to exit loop
               p                  - delete "if" result
                "#"=              - is is a "#"?
                    [        ]    - then clause if true
                     l            - load backup cell
                      '~`         - generate the number "127"
                         %        - calculate modulo w/ 127
                          !       - convert to "0" (1)
                           s      - reset backup cell to "0"
                              p   - delete "if" result
                               p  - delete character we just processed

0sp                                - init backup cell to "0"
   ir                              - read input as codepoints and reverse stack
     [                           ] - loops once for each input char
      ';=                          - is it a ";"?
         [    ]p                   - then clause if true
          l                        - load the accumulate value
           +                       - increment by 1 ("if" result is on stack)
            s                      - update backup cell
             !                     - change top of stack to "0" to exit loop
               p                   - delete "if" result
                "#"=               - is is a "#"?
                    [        ]     - then clause if true
                     l             - load backup cell
                      '~`          - generate the number "127"
                         %         - calculate modulo w/ 127
                          o        - print top of stack as char
                           !       - convert to "0" (1)
                            s      - reset backup cell to "0"
                               p   - delete "if" result
                                p  - delete character we just processed