addString :: String -> FList 
addString s = \ws -> B.append (S.strToByteString s)  ws
addString :: String -> FList
addString s = \ws -> B.append (S.strToByteString s)  ws
addString s = \ws -> B.append (S.strToByteString s)  ws