function a($)
    dim $s
    $s = 4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve
    $a = "" + $a + $ + " is "
    if four=$ | 4=$
        $a = $a + magic.
    else
        if $>99
            $ = $s[($^)+25-(($^)>7&instr($,y)>)]
        else
            $ = $s[iif($<20,$,$/10+18)] + $s[$ mod 10]*($>19&$ mod 10>)
        endif
        $a = $a + $ + ". " + a($)
endfunction

function a($)
    dim $s
    $s = 4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve
    $a = "" + $a + $ + " is "
    if four=$ | 4=$
        $a = $a + magic.
    else
        if $>99
            $ = $s[($^)+25-(($^)>7&instr($,y)>)]
        else
            $ = iif($<20, $s[$], $s[$/10+18]+($ mod 10>)*$s[$ mod 10])  
               ;$s[iif($<20,$,$/10+18)] + $s[$ mod 10]*($>19&$ mod 10>)                    
        endif
        $a = $a + $ + ". " + a($)
endfunction

if $=4 | $=four & $>0

if instr(four4,$)

function a($)
 Dim $T,$v,$l,$n,$f,$z
 $T = zero,one,two,three,four,five,six,seven,eight,nine,ten,
 eleven,twelve,thirteen,fourteen,fifteen,sixteen,seventeen,eighteen,nineteen,twenty
 ReDim Preserve $T[90]
 $T[30]=thirty
 $T[40]=forty
 $T[50]=fifty
 $T[60]=sixty
 $T[70]=seventy
 $T[80]=eighty
 $T[90]=ninety
 $v=Join(Split(Join(Split($, '-'), ''), ' '), '')

 If $ = Val($)			; is numeric
  $f=1				; set flag
  $l=Right($,1)
  If $<21			; direct translation
   $v = $T[$]
  Else				; tens plus ones (if not zero)
   $v = $T[10*left($,1)] + IIf($l<>0,$T[$l],'')
  EndIf
 EndIf

 If $v <> four			; don't process if input is "four"
  Do
   $n = Len($v)			; len of verbose number value
   $z=IIf($f,$n, $T[$n])	; len as either number or verbose value

   $a = '' + $a + $ + ' is ' + $Z + '. '
   $v = $T[$n]			; reset new verbose value
   $=IIf($f,$z,$v)
  Until $n = 4
 EndIf

 $a = $a + IIf($f,'4', 'four') + ' is magic.'

endfunction

KiXtart Version  = 4.61
KiXGolf Script   = kixgolf_fim.kix
Scoring Engine   = 3.3
OS               = Windows 7 Enterprise Edition
CPU              = Intel Pentium Model 14
Speed            = 1662 MHz
Memory           = 2048 MB

Tournament       = Four Is Magic
Processing Start = 2011/05/09 10:11:38.105
Processing End   = 2011/05/09 10:11:38.293
Duration         = 0000/00/00 00:00:00.187
# Tests Run      = 200
# Tests Passed   = 200
# Tests Failed   =
Result           = passed
KiXGolf Score    = 571

Thank you for participating in KiXtart Golf!

function a($)
	$a=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
	if b>$
		$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
	else
		$a=$a[($^)-(($^)>7&instr($,y)>)]
	endif
	if four=$ ^ $=4
		$a=""+$+" is magic."
	else
		$a=""+$+" is " + $a +". "+a($a)
endfunction

function a($)
   dim $1,$2,$3,$s
   $1="zero","one","two","three","four","five","six","seven","eight","nine","ten","eleven","twelve",
       "thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"
   $2="","","twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"

   if $=4 OR $="four" AND $>0
      $a=""+$+" is magic."
   else
      if val($)>0 or $=0
         if val($)>19
            $3=len($2[$/10])+len($1[$ mod 10])
            if instr($,0)
               $3=$3-4
            endif
         else
            $3=len($1[$])
         endif
         While $3<>4
            $s=""+$s+$+" is "+$3+". "
            $=$3
            $3=len($1[$3])
         Loop
      else
         $3=$1[Len(join(split(join(split($," "),""),"-"),""))]
         While $3<>"four"
            $s=$s+$+" is "+$3+". "
            $=$3
            $3=$1[len($3)]
         Loop
      endif
      $a=""+$s+$+" is "+$3+". "+$3+" is magic."
   endif
endfunction

function a($)
    dim $b
    $b=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
    $a = ""+$+" is "
    if four=$|$=4
        $a=$a+magic.
    else
        if b>$
            $=($b[$ mod (20-10*($>19))]^)+$b[20+$/10]
        else
            $=$b[($^)-(($^)*instr($,y)>36)]
        endif
        $a=$a+$+". "+a($)
endfunction

function a($)
   dim $s, $t[9], $o[9], $d[9], $w[2], $f, $r, $l, $n
   $o = "zero","one","two","three","four","five","six","seven","eight","nine"
   $d = $ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"
   $t = "","","twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"
   $a = ""
   if $ + 0 = $
      select
         case $ < 10
            $w = "","",$o[$]
         case $ < 20
            $w = "","",$d[$ - 10]
         case 1
            $r = $ mod 10
            $f = int($ / 10)
            $w = $t[$f],"-",iif($r = 0,"",$o[$r])
      endselect
      while not($w[0] = "" and $w[2] = "four")
         $l = len($w[0]) + len($w[2])
         if $w[0] = ""
            if Ascan($d,$w[2]) < 0
               $n = Ascan($o,$w[2])
            else
               $n = Ascan($d,$w[2]) + 10
            endif
         else
            $n = Ascan($t,$w[0]) * 10 + iif($w[2]="",0,Ascan($o,$w[2]))
         endif
         $a = $a + $n + " is " + $l + ". "
         if $l < 10
            $w = "","",$o[$l]
         else
            $w = "","",$d[$l-10]
         endif
      loop
      $a = $a + "4 is magic."
   else
      if Instr($,"-")
         $s="-"
         $w = split($,$s)
      else
         if Instr($," ")
            $s=" "
            $w = split($,$s)
         else
            $s=""
            $w = $s,$
         endif
      endif
      redim preserve $w[2]
      $w[2]=$w[1]
      $w[1]=$s
      while not($w[0] = "" and $w[2] = "four")
         $l = len($w[0]) + len($w[2])
         if $l < 10
            $n = $o[$l]
         else
            $n = $d[$l-10]
         endif
         $a = $a + join($w,"") + " is " + $n + ". "
         if $l < 10
            $w = "","",$o[$l]
         else
            $w = "","",$d[$l-10]
         endif
      loop
      $a = $a + "four is magic."
   endif
endfunction

function a($)
    dim $b
    $b=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
    $a = ""+$+" is "
    if four=$|$=4
        $a=$a+magic.
    else
        if b>$
            $=($b[$ mod (20-10*($>19))]^)+$b[20+$/10]
        else
            $=$b[($^)-(($^instr($,y))>9)]
        endif
        $a=$a+$+". "+a($)
endfunction

function a($)
    $a=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
    if b>$
        $a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
    else
        $a=$a[($^)-(($^instr($,y))>9)]
    endif
    if $=$a
        $a=""+$+" is magic."
    else
        $a="" + $ + " is " + $a + ". "+a($a)
endfunction

if $=$a