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