Modifying Eric's with parts of mine for 307:

 Code:
function a($)
	dim $b
	$b = 0,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve
	$a = '' + $ + ' is '
	if four = $ or $ = 4
		$a = $a + magic.
	else
		if $ > 99
			$=$b[($^)+27-(($^)>7&instr($,y)>)]
		else
			$ = iif($<20,$b[$ mod 20] + 4*($=0),$b[$/10+20] + $b[$ mod 10])
		endif
		$a = $a + $ + '. ' + a($)
endfunction
_________________________