#yazielit on

on 1:INPUT:*:{

  unset %elit 

  set %elit $1-

  if ( $chr(47) == $mid(%elit,1,1) ) { 

    if $1 == /ame {

      %elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,&#8224;,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)

      %elit

      unset %elit*

      halt

    }

    if $1 == /me {

      %elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,&#8224;,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)

      %elit

      unset %elit*

      halt

    }

    else {

      %elit | unset %elit* | halt 

    }

  }

  %elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,&#8224;,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)

  say %elit

  unset %elit 

  halt

}

#yazielit end