Function a($)
  Dim $b,$c,$d,$e,$f,$g
  For Each $f in $
    $c=2
    $ = theholygrail
    For Each $b in Split($f)
      $a=0
      While $b
        $a = $a | $b > '@'
        $ = SubStr($,(Left($b,1) = Left($,1))+1)
        $b = Right($b,~)
      Loop
      $c = $c + $a
      $f=Join(Split($f,'  '))
    Next
    $g=$g+#Knight:\+$f+#
    For $f=1 to $c/3
      If $
        $ = 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'
        $d=$d+1
        If $d mod 3=2
          $b=$[$e mod 11+13]+!\Your\+$[$e/4 mod 3+5]+IIf($e/4 mod 2,\masquerades\as\a\+$[$e/8 mod 5]+ly\,\is\a\)+$[$e/4 mod 7+24]
          $e=$e+1
          $f=$f+1
        Else
          $b=Your\+$[$e/2 mod 5+8]+ther\+IIf($d mod 3,was,personified)+\a
        EndIf
        $=$b+\+LCase($[$e mod 11+13])
        $e=$e+1
      Else
        $='(A childish hand gesture)'
      EndIf
      $g=$g+Taunter:\+$+'.#'
;    Next
;  Next
  $a=Split(Right(Join(Split($g,\)),~),#)
EndFunction