#lang reader "reader.rkt"

     0         1         2         3           4              5
(input 11)(input 12)(input 21)(input 22)(input 1 count)(input 2 count)

,------------------------------------------------ in 0; read input ; subtract ascii zero
[->>>>++++++++++<<<<]                             in 0; add 10 for each number in 0 to 4
>                                                 goto 1
,------------------------------------------------ in 1; read input ; subtract ascii zero
[->>>+<<<]                                        in 1; add 1 for each number in 1 to 4
>                                                 goto 2
,------------------------------------------------ in 2; read input ; subtract ascii zero
[->>>++++++++++<<<]                               in 2; add 10 for each number in 2 to 5
>                                                 goto 3
,------------------------------------------------ in 3; read input ; subtract ascii zero
[->>+<<]                                          in 3; add 1 for each number in 3 to 5
>                                                 goto 4
>[<+>-]<                                          add each number in 5 to 4

>>++++++++++<<[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]>> in cell 4 do N modulo 10
[-]>>>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]> in cell 4 do N modulo 10
[-]>>[>++++++[-<++++++++>]<. print hundreds
<<+>+>[-]]<[<[->-<]++++++[->++++++++<]>.[-]] print tens
<<++++++[-<++++++++>]<. print ones
[-]<<[-<+>]< cleanup

testing data
!9999