1000


INCREASE Z INCREASE C INCREASE V INCREASE L

INCREASE N
REPEAT X TIMES (
 REPEAT N TIMES (
  CLEAR N CLEAR B CLEAR M

  # division
  INCREASE M
  REPEAT X TIMES (
   REPEAT M TIMES ( CLEAR X CLEAR M ) 
   INCREASE B
   REPEAT N TIMES (
    CLEAR N
    CLEAR B
    INCREASE X
   )
   REPEAT B TIMES (
    INCREASE N
   )
  )


  CLEAR N CLEAR M

  # should continue?
  REPEAT X TIMES (
   CLEAR N INCREASE N 
  )

  CLEAR M
  INCREASE M
  # Q W E R T Y U I O P A S D F G H J K for bits
  # z c v l
  

  REPEAT Z TIMES ( #1XXX
   REPEAT C ( #11XX
    REPEAT V ( #111X
     REPEAT L ( #1111
      REPEAT M TIMES ( #SET
       REPEAT B TIMES ( INCREASE H )
       CLEAR M
       CLEAR L # MAKE 1110
      )
     )
     REPEAT M TIMES ( #SET 1110
      REPEAT B TIMES ( INCREASE G )
      CLEAR M
      CLEAR V INCREASE L # MAKE 1101
     )
    )
    REPEAT L TIMES ( #1101
     REPEAT M TIMES ( #SET
      REPEAT B TIMES ( INCREASE F )
      CLEAR M
      CLEAR L # MAKE 1100
     ) 
    )
    REPEAT M TIMES ( #SET 1100
     REPEAT B TIMES ( INCREASE D )
     CLEAR M
    ) 
   )
   REPEAT V TIMES ( # 101X
    REPEAT L TIMES ( #1011
     REPEAT M TIMES ( #SET
      REPEAT B TIMES ( INCREASE S )
      CLEAR M
      CLEAR L # MAKE 1010
     )
    )
    REPEAT M TIMES ( #SET 1010
     REPEAT B TIMES ( INCREASE A )
     CLEAR M
     CLEAR V INCREASE L # MAKE 1001
    )
   )
   REPEAT L TIMES ( #1001
    REPEAT M TIMES ( #SET
     REPEAT B TIMES ( INCREASE P )
     CLEAR M
     CLEAR L # MAKE 1000
    )
   )
   REPEAT M TIMES ( # SET 1000
    REPEAT B TIMES ( INCREASE O )
    CLEAR M
    CLEAR Z INCREASE C INCREASE V INCREASE L # MAKE 0111
   )
  )
  REPEAT C ( #01XX 
   REPEAT V ( #011X
    REPEAT L ( #0111
     REPEAT M TIMES (
      REPEAT B TIMES ( INCREASE I )
      CLEAR M
      CLEAR L #MAKE 0110
     )
    )
    REPEAT M TIMES ( # SET 0110
     REPEAT B TIMES ( INCREASE U )
     CLEAR M
     CLEAR V INCREASE L #MAKE 0101
    )
   )
   REPEAT L ( #0101
    REPEAT M TIMES (
     REPEAT B TIMES ( INCREASE Y )
     CLEAR M
     CLEAR L # MAKE 0100
    )
   )
   REPEAT M TIMES ( # SET 0100
    REPEAT B TIMES ( INCREASE T )
    CLEAR M
    CLEAR C INCREASE L INCREASE V #MAKE 0011
   )
  )
  REPEAT V ( # 001X
   REPEAT L ( # 0011
    REPEAT M TIMES ( # SET
     REPEAT B TIMES ( INCREASE R )
     CLEAR M
     CLEAR L #MAKE 0010
    )
   )
   REPEAT M TIMES ( # SET 0010
    REPEAT B TIMES ( INCREASE E )
    CLEAR M
    CLEAR V INCREASE L # MAKE 0001
   )
  )
  REPEAT L ( #0001
   REPEAT M TIMES ( # SET
    REPEAT B TIMES ( INCREASE W )
    CLEAR M
    CLEAR L #MAKE 0000
   )
  )
  REPEAT M TIMES ( # SET 0000
   REPEAT B TIMES ( INCREASE Q )
   CLEAR M
  )

 )
)