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