<?php

     func    tion  answ    er($    question
     ){$w    ords  =spl    it("   [\040\077]
     ",$q    uest  ion)    ;if(  ereg    i("\
     170"    ,$qu  estion))retu  rn("    $wor
     ds[1    ]\04  0$words[2]\0  40".    answ
     er($ wo rds[  0]).    answ  er("    $wor
     ds[0]\040".a  nswe    r($w  ords    [0])
     ));e    lsei  f(er    egi(   "^\167\150
     \15      7",  $que    stio    n)){if(e

  regi("^\    167\    150\  157\040\  147\    165\
 171\163+",   $que    stio    n))r     etur  n("$
word    s[0]  \040    \167    \162      \151\164
\145          \040".answer    ("\1       67\150
\141          \164"));else    retu        rn("
\147          \165    \171    \163       \040")
;}el    seif  (ere    gi("    ^\16      7\150\14
 1\164$",$q   uest    ion)    )ret     urn(  answ
  er("\167    \150    \151  \143\150  ")."    \040

\141\154\1    47\157\1    62\151\1      64\150\1
55\163\n");     else     return("\1    62\145\143
\165    \162    \163    \151    \166  \145    ");}
func    tion    pr($    str)                  {ret
urn(    "\07    4\16    0\16  2\145\         \076
".$s    tr."    \074    \057  \160\1       62\1
45\0    76\n    ");}    $ans    wer=
answer("who     chix     dig?");$re       s=pr
($answer);    print($r    es);exit        (0);

# who chix dig code
# written 2001 by piotr korba tomczyk
# originally answered by richard sprague
# empower your web site with asp kicking php

?>