escMap :: [(Char, Char)]
escMap = map (\ l -> let [f, s] = l in (f, s))
  [ "+P"
  , "&A"
  , "=E"
  , ";S"
  , " B"
  , "XX" ]
escMap :: [(Char, Char)]
escMap = map (\ l -> let [f, s] = l in (f, s))
  [ "+P"
  , "&A"
  , "=E"
  , ";S"
  , " B"
  , "XX" ]
escMap = map (\ l -> let [f, s] = l in (f, s))
  [ "+P"
  , "&A"
  , "=E"
  , ";S"
  , " B"
  , "XX" ]