# code: http://golf.shinh.org/reveal.rb?mysterious+numbers/whio_1771369078&nbb
# target Nibbles version: 0.2
# commenter version: 0.1.6.187

?, #(if/else (lazy list)):[int] 
    / #(foldr):[int] 
        ^ #(replicate):[int] 
            3 #(integer):int 
            + #(add):[int] 
                2 #(integer):int 
                , #(range from 1):[int] 
                    3 #(integer):int 
        - #(diff):[int] <--arg( B:int A:int ) 
            ;@ #(= ints):[int] 
            ^ #(replicate):[int] 
                4 #(integer):int 
                , #(range from 1):[int] 
                    ; #(let):int -->let( C:int ) 
                        1 #(integer):int 
        `% #(split list (keep empties)):[[int]] <--arg( E:int D:[int] ) 
            @ #(= D):[int] 
            : #(append):[int] 
                $ #(= E):int 
                2 #(integer):int 
    $ #(= F):[int] <--arg( F:[int] ) 
    #(implicit arg = C):int