on 1:INPUT:*:{
    unset %elit  
    set %elit $1-
    if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
    %elit = $replacecs(%elit,B,ß,b,ß)
    say %elit
    unset %elit
    halt
  }
 }