Function a($)
Dim $z,$t,$!,$d,$v,$w,$x
For Each $ in $
For $t = -9 to 1
$=Join(Split($," "))
Next
$x=$x+#Knight:\+$+#
For Each $v in Split($)
$a=0
$z=1
For $w=1 to 72
$z=$z+(SubStr($,$w,1)=SubStr(theholygrail,$z,1))
$a=$a | SubStr($v,$w)>'@'
Next
$t=$t+$a
Next
$ = Split("conspicuous categorical positive cruel incontrovertib steed king first-born mo fa grandmo grandfa godfa Hamster Coconut Duck Herring Newt Peril Chicken Vole Parrot Mouse Twit silly wicked sordid naughty repulsive malodorous ill-tempered")
For $v=1 to $t/3
If $v=1&$z>12
$z="(A childish hand gesture).#"
Else
$d=$d+1
If $d mod 3=2
$z=$[$! mod 11+13]+!\Your\+$[$!/4 mod 3+5]+IIf($!/4 mod 2,\masquerades\as\a\+$[$!/8 mod 5]+ly\,\is\a\)+$[$!/4 mod 7+24]
$!=$!+1
$v=$v+1
Else
$z=Your\+$[$!/2 mod 5+8]+ther\+IIf($d mod 3,was,personified)+\a
EndIf
$z=$z+\+LCase($[$! mod 11+13])+".#"
$!=$!+1
EndIf
$x=$x+Taunter:\+$z
$a=Split(Right(Join(Split($x,\)),~),#)
EndFunction