numTotxt:
  type: procedure
  definitions: number
  script:
  - define length <def[number].length>
  - foreach <el@%number%.to_list> {
    - choose %value%:
      - case "0":
        - define number_%loop_index% Zero
      - case "1":
        - define number_%loop_index% One
      - case "2":
        - define number_%loop_index% Two
      - case "3":
        - define number_%loop_index% Three
      - case "4":
        - define number_%loop_index% Four
      - case "5":
        - define number_%loop_index% Five
      - case "6":
        - define number_%loop_index% Six
      - case "7":
        - define number_%loop_index% Seven
      - case "8":
        - define number_%loop_index% Eight
      - case "9":
        - define number_%loop_index% Nine
  }
  - define final_number ""
  - repeat %length% {
    - define final_number "<def[final_number]><def[number_%value%]>"
    }
  - determine "%final_number%"