fshow :: Show a => a -> FList 
fshow x = \ws -> B.append (S.strToByteString (show x)) ws
fshow :: Show a => a -> FList
fshow x = \ws -> B.append (S.strToByteString (show x)) ws
fshow x = \ws -> B.append (S.strToByteString (show x)) ws