Proc'' :: Char -> [Int] -> BS.ByteString -> BS.ByteString
mainProc'' s fs ln = BS.unwords [ fnc fs w | w <- zip [1..] (myWords ln)]
                   where fnc fs (n,w) = if filter ( == n) fs == [] 
                                        then w
                                        else BS.pack $ divsen s $ BS.unpack w

di
mainProc'' :: Char -> [Int] -> BS.ByteString -> BS.ByteString
mainProc'' s fs ln = BS.unwords [ fnc fs w | w <- zip [1..] (myWords ln)]
                   where fnc fs (n,w) = if filter ( == n) fs == [] 
                                        then w
                                        else BS.pack $ divsen s $ BS.unpack w
mainProc'' s fs ln = BS.unwords [ fnc fs w | w <- zip [1..] (myWords ln)]
                   where fnc fs (n,w) = if filter ( == n) fs == [] 
                                        then w
                                        else BS.pack $ divsen s $ BS.unpack w