on 1:input:*:{
  if (*/* !iswm $1-) {
    say $replace($1-,$chr(59) $+ $chr(41),- $+ $chr(41))
    halt
  }
}

}