(pparillinen pariton)

    CLEAR B 
    INCREASE B
    REPEAT X TIMES ( 
      REPEAT A TIMES ( 
        INCREASE C
        CLEAR A
      )
      REPEAT B TIMES ( 
        INCREASE A
        CLEAR B
      ) 
      REPEAT C TIMES ( 
        INCREASE B
        CLEAR C
      )  
    )

parillinnen
INCREASE A
INCREASE X
INCREASE X
INCREASE X    
INCREASE X
    REPEAT A TIMES ( 
      REPEAT X TIMES ( 
        INCREASE Q
        INCREASE Q
        INCREASE Q
      )
      INCREASE Q
    ) 
    CLEAR X
    REPEAT Q TIMES (
        INCREASE X
    )
pariton
    REPEAT B TIMES ( 
   `   CLEAR B 
    INCREASE B
    REPEAT X TIMES ( 
      REPEAT A TIMES ( 
        INCREASE C
        CLEAR A
      )
      REPEAT B TIMES ( 
        INCREASE A
        CLEAR B
      ) 
      REPEAT C TIMES ( 
        INCREASE B
        CLEAR C
      )  
    )  `
      )
    )

1or 0