let inputProtector(s:string) =
       let seq = s |> Seq.toList
       let rec seqParse(sq:char list) =
          match sq with
          | '\\'::tail -> '\\'::'\\'::seqParse tail
          | '$'::tail -> '\\'::'$'::seqParse tail
          | '%'::tail -> '\\'::'%'::seqParse tail
          | '#'::tail -> '\\'::'#'::seqParse tail
          | '{'::tail -> '\\'::'{'::seqParse tail
          | '}'::tail -> '\\'::'}'::seqParse tail
          | head::tail -> head::seqParse tail
          | [] -> []

       let implode (xs:char list) =
            let sb = System.Text.StringBuilder(xs.Length)
            xs |> List.iter (sb.Append >> ignore)
            sb.ToString()

       implode(seqParse(seq))