On *:input:*:{
  if (/ != $left($1,1)) && (!%!input) {
    if (brb isin $1-) { Say $+(2,$replace($1-,brb,2Be R12igh2t B12ac2k)) | halt }
    if (tyt isin $1-) { Say $+(2,$replace($1-,,tyt2T12ak2e Y12ou2r T12im2e)) | halt }
    if (back isin $1-) { Say $+(2,$replace($1-,back,2am B12ac2K)) | halt }
    if ($+(:,$chr(41)) isin $1-) { Say 12:2) | halt }
    if ($+(:,$chr(40)) isin $1-) { Say 12:2( | halt }
    if ($1 ison #) { Say 14,14 02,15 $1 14,14 12,0 $2- | halt }
    else { Say $+(02,$1-) | halt } 
} }
menu * {
   
  .:UnSet %!input
  .:Set %!input OK
}
