how stupid. this what you meant Allen?
275
 Code:
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
_________________________
!

download KiXnet