On 1:input:*:{
 
  if ($1- = slmm) { say   8,0æ0,8æ7,8æ8,7æ1,7æ7,1æ 15· Selam.. · 7æ1,7æ8,7æ7,8æ0,8æ8,0æ10   | halt }
  if ($1- == a.ss) { say    8,0æ0,8æ7,8æ8,7æ1,7æ7,1æ 15· Aleyküm Selam.. · 7æ1,7æ8,7æ7,8æ0,8æ8,0æ10   | halt }
  if ($1- == s.aa) { say   8,0æ0,8æ7,8æ8,7æ1,7æ7,1æ 15· SeLamun ALeykum · 7æ1,7æ8,7æ7,8æ0,8æ8,0æ10   | halt }
  if ($1- == op) { /samode # +o $me  | halt }
  if ($1- == deop) { /mode # -o  $me   | halt }
  if ($1- == +) { /samode # +v  $me   | halt }
  if ($1- == -) { /samode # -v  $me   | halt }
  if ($1- == aminnn ) { say   4A5m4i5N 4C5u4m5L4e5m4i5Z4e 4İ5N4ş5A4L5L4a5H | halt }
  if ($1- == muxx) { say  7M6u13C3k7K6k13K3s7S0,0.13C3a7N6ı13M   | halt }
  if ($1- == canı) { say   4CANIM 3 CANIM 5CANIM 7CANIM 13 CANIM 14 CANIM 2CANIM 8CANIM 15CANIM 3CANIM 10CANIM 12CANIM 9CANIM 4CANIM  | halt } 
  if ($1- == :D)  { say :D4:12D1:7D12:4D  | halt }
  if ($1- == :P)  { say  4:12P4p1P4p4:12p | halt }
  if ($1- == iyimsaol)  { say  4İ12yim 4T12eşekkür 4E12derim... 12((: | halt } 
  if ($1- == :)  { say  4:12)1:4)12:1)12:4) |  halt }
  if ($1- == ::)  { say  4:(12:(4:(12:(4:(  | halt }
  if ($1- == mu)  { say  4M7u10H12a12H13a12ha4H7a10H12a12H13a12ha))  | halt }
  if ($1- == zu)  { say  4Z7u10H12a12H13a12ha4H7a10H12a12H13a12ha))  | halt }
  if ($1- == zurna) { say  4Zu12Rn4aa12aa4aa12aa4aa12aa  | halt }
  if ($1- == yu)  { say  4Yu12Ha4Ha12Ha4Ha12Ha4Ha12Ha4HaHa12Ha4Ha12Ha44Ha12Ha4HaHa  | halt }
  if ($1- == he)  { say  4H7e10H12e12H13e12he4H7e10H12e12H13e12h13e13)) | halt }
  if ($1- == ha)  { say  4H7a10H12a12H13a12ha4H7a10H12a12H13a12ha))  | halt }
  if ($1- == ehu)  { say  4eHu 12eHu 4eHu 12eHu 4eHu 12eHu 4eHu 12eHu 4eHu :12))) | halt }
  if ($1- == ki)  { say  4k7i10k12i12k13i12ki4k7i10k12i12k13i12ki)) :4P | halt }
  if ($1- == hi)  { say  4H7i10H12i12H13i12hi4H7i10H12i12H13i12hi)) | halt }
  if ($1- == pu)  { say  4P7u10H12a12H13a12ha4H7a10H12a12H13a12ha)) | halt }
  if ($1- == Kıh) { say 4Kıh12Kıh4Kıh12Kıh4Kıh12Kıh4Kıh12Kıh4Kıh12Kıh4 :12) | halt }
  if ($1- == ok)  { say  « 4o7K » | halt }

  if ($1- == as $2)  { say 4ALeyKuM 4SeLaM 4  $2 4HoŞ 4GeLdin...  | halt }
  if ($1- == ham $2) { say 14,1 HamdOlsun 4,1 İyiyim 11,1 Sen Nasılsın. $2 . | halt }
  if ($1- == ooo) { say 4,1O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o4O7o  | halt }
  if ($1- == dabii) { say 12D7å12B12i 7D12å7B12i | halt }
  if ($1- == uyz) { say   4UuUuUuUu12yYyYyY1UuUuUuU7zZzZ12ZzZ4zZz3Zz  | halt }
  if ($1- == hea) { say 6H1e6e1e6a1a 4:) | halt }
  if ($1- == nav) { say 4N1e 4A1lakası  4V1a4R  4:Pp | halt }
  if ($1- == a.c) { say 4A1nLiYo4R1uM 4C1ani4M  | halt }
  if ($1- == yeter) { say 4Y7e10t12e12r 4y13awss:/:/ | halt }
  if ($1- == det) { say 4D1e4e1e4T | halt }
  if ($1- == hb $2) { say 4,0H1oş 4B1uldum 4  $2  | halt }
  if ($1- == c.b) { say 4Ca7n10ım 12B12e13n1i4m  | halt }
  if ($1- == cix) { say 6C1ıx 6C1ıx 6A1ip  6A1ip  4:P | halt }
  if ($1- == öfs)  { say 5 4ÖöÖ12f4f12f4f12s4S12s4 5 | halt }
  if ($1- == tr) { say  0,4 >>>>>>TÜRKİYE<<<<<< 8,1 | halt }
  if ($1- == hg $2) { say 12H4o12ş 4G12e4L12D4i12N 4  $2  | halt }
  if ($1- == gunaydın) { say 4G7ü10n12a12y13d12ı4N  | halt } 
  if ($1- == dile)  { say 12 24,1ßen 14,1s15E14n15I 4Cehennemde 15,1y14A15n14A15n 4ßir 14,1Gün15ahk14ArIn 4Cenneti 15,1di14Led15iqi 4Kadar 14,1Se15VD14im4!12 ]  | halt }
  if ($1- == by.) { say  4K14endinize 4i14yi 4B14akin 4B14ir 4B14askasi 4i14¢in 4D14egil 4K14endiniz 4i14¢in 4K14endinize 4i14yi 4B14akin 4A14LLAH'A 4E14MANETSINIZ 4B14y4E14..  15,1\1,15\15,1\  154••14[ 15 $ME 14 ]4••15,1  15,1/1,15/15,1/   | halt }
  if ($1- == gitya)  { say  1Yaa 4Bigit 1aLLah için1? | halt }
  if ($1- == her)  { say  4 4,15 4,1 « 3Belki 14sana sevmesini  3öğretemem 14ama sende bana unutmayı öğretemessin...!! 4» | halt }
  if ($1- == kib $2) { say 4SeLametLe 4  $2 4ALLaha 4Emanet 4OL 4Kendine 4Iyi 4Bak4.4Gürüşmek 4DileqiyLe. 4  $2 4By4éè€4SsS | halt }
  if ($1- == yaf) { say 4Y6aaaaa12f10ffffffff14fffff7.4. | halt }
  if ($1- == fena) { say 0,3CooooooooooK0,13 FéNa 0,3CooooooooooK®  | halt }
  if ($1- == yaw) { say 4Y6a12w10w14w7.4. | halt }
  if ($1- == uyar) { say 0,4«±»|0,4 C *0,1KanaLda Sigara İçmek, Çekirdek Yemek, LeyLaya Para Basmak, MasaLarın üstünde Göbek Atmak, Ayrımcılık vede KızLara Laf Atmak, "YASAKTIR",KanaLa Girişte BayanLarın "Mini-Etek" Giymesi & ErkekLerin "Gıravat" Takması Mecburidir...0,4 C * |0,4«±»   | halt }
  if ($1- == bencil) { say 12Be2Nc4iL 12oL2muYa4Can 12Sen4CiL 12oL2uc4aN...  | halt }
  if ($1- == ya) { say 4Y6aaa12aa2aaa... | halt }
  if ($1- == of.) { say 4O7ffff7ffffff12.13. | halt }
  if ($1- == kibar) { say 13 OoOo Nede kibarlaşmışım böyle! Bügün cömertligim tutmus Heee. Dikkatli oLun arkadaşlar sakıncalı olabilir :o)) 12H4e12h4e12h4e.. 0,11 0,12 0,4 11,2 0AnqaraLi 0,4 0,12 0,11  | halt }
  if ($1- == satir) { say  5 411,1 Bırak Ellerimi Üç Satır Yazacağım üç Satırda 13,1 ``Sen`` 11,1 Bırak Gözlerimi Dört Yana Bakacağım Dört Yanda 13,1 ``Sen`` 11,1 Bırak Yüreğimi Bin Kere Seveceğim Bin Kerede 13,1 ``Sen`` 5      | halt }
  if ($1- == yara.) { say 7- 11,1S9,1erver Administrator 14,1 h£r N£ kaDaR kahkamıZın ßedeLiNi 4,1 qÖzya$ımızLa 14,1 ÖdüyQr QLsaqTa 4,1  qüLméktéN 14,1 koRkmaDıq h£r DéfaSınDa yAra aLSakTa 4,1 a$ktan 14,1 SéwqiDén kaCmaDıq Kan aqLarqeN ßiLé qÖzLeRimiZ kimSeye 4,1 UtanaRak 14,1 ßakmaDık cQk kahPé kurSunLaR qeLSeDé £n ßüYük YaRaYı 9,1 SewiYoRum 14,1 DiyénDén aLDıq4,1...9,1!.   | halt }
  if ($1- == eri) { say 8,1 Biz KimLeriz? 13,1Diye Sorma, 4,1 Biz Hayata Boş VermişLerdeniz. 10,1 Hayat Nedir? 0,1Diye Sorma, 11,1Biz Hayat Deryasinda YüzenLerdeniz.9,1 Bizi Arama Lüks MeyhaneLerde, 10,1 Biz Dost Şarabı içenLerdeniz. 7,1 Bize Dost, Arkadaş Nedir Diye Sorma, 12,1Biz OnLar için öLüme GidenLeriz0,4]. | halt }
  if ($1- == bye.) { say  4By4e€ | halt }
  if ($1- == 2400  )  {
    /say 0 1 2,2******8,8**************2,2*******
    /say 0 1 2,2*****8,8****1,1*8,8******1,1*8,8****2,2******
    /say 0 1 2,2****8,8****1,1*2,2*1,1*8,8****1,1*2,2*1,1*8,8****2,2*****
    /say 0 1 2,2***8,8******1,1*8,8******1,1*8,8******2,2****
    /say 0 1 2,2**8,8**********************2,2***
    /say 0 1 2,2**8,8****1,1*8,8***********1,1*8,8*****2,2***
    /say 0 1 2,2**8,8*****1,1**8,8********1,1**8,8****2,2****
    /say 0 1 2,2***8,8*****1,1*******1,1***8,8****2,2*****
    /say 0 1 2,2****8,8******1,1**4,4**1,1**8,8*****2,2******
    /say 0 1 2,2*****8,8*******4,4**8,8******2,2*******
  /say 0 1 2,2*******8,8************2,2********               | halt } 

  if ($1- == 3100 )  { 
    /say ________________________ 
    /say ___888888888888888888___ 
    /say __88____________________ 
    /say __88____________________ 
    /say __888___________________ 
    /say ___888888888888888888___ 
    /say ________________________ 
    /say __________________8888__ 
    /say _______________888______ 
    /say __88888888888888________ 
    /say _______________888______ 
    /say __________________8888__ 
    /say ________________________  
    /say ________________________ 
    /say ___888888888888888888___ 
    /say __88____________________ 
    /say __88____________________ 
    /say __888___________________ 
    /say ___888888888888888888___
    /say ________________________ 
    /say ________________________ 
    /say ________________________ 
    /say ___888______888888888___ 
    /say __88_______888_____888__ 
    /say __88_______88_______88__ 
    /say __888_____888_______88__ 
    /say ___888888888______888___ 
    /say ________________________
  /say ________________________     | halt }
  if (/* iswm $1) { return }
  var %a 0, %b, %c
  while (%a < $numtok($1-,32)) {
    inc %a
    %c = $gettok($1-,%a,32)
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(«3•1º12,%c,1º3•») }
    else { %b = %b %c }
  }
  if (!%b) { %b = $1- }
  say %b
  halt