init abe 'a'                      ++++++++++++++++[->+>++++++++>++++++>+++++++>++++<<<<<]>------>------->+>-->++++++++
init mnos 'n'                     
init y 'y'                        
init H6 'H'                       
init NL 10                        
                                  
in x                              >,
while H6                          <[
    dec H6                        
    dec x                         ->-
end                               <]
inc H6 6                          ++++++
while x                           >[
    dec x 5                       -----
    while x                       [
        # input is orthoplex      
        inc abe 4                 
        inc mnos 5                <<+++++<++++
        while H6                  >>[
            dec H6                
            out y                 -<<<.
            out abe               >.
            out mnos              >.
            out NL                <<<.
        end                       >>>>]
        clear x                   >[-]
    end                           ]
                                  
    while H6                      <[
        # input is MichalMarsalek 
        out mnos                  
        inc mnos                  
        out mnos                  <.+.
        clear H6                  >[-]
    end                           ]
    clear x                       >[-]
end                               ]
while H6                          <[
    # input is HPWiz              
    dec mnos                      
    out mnos                      <-.
    out abe                       <.
    out y                         
    inc abe                       <.>+
    out abe                       .
    inc abe 3                     
    out abe                       +++.
    clear H6                      >>[-]
end                               ]