import Char -- X
q = [chr 34] -- X
s = "import Char -- Xq = [chr 34] -- Xs =  -- Xmain = let {f s x = (if x == chr 88 then s ++ [x, chr 10] else s ++ [x]); ss = foldl f [] s} in putStr $ (take 39 ss) ++ q ++ s ++ q ++ (drop 39 ss)" -- X
main = let {f s x = (if x == chr 88 then s ++ [x, chr 10] else s ++ [x]); ss = foldl f [] s} in putStr $ (take 39 ss) ++ q ++ s ++ q ++ (drop 39 ss)