main = putStr (s ++ [';',' ','s',' ','=',' '] ++ show s); 
s = "main = putStr (s ++ [';',' ','s',' ','=',' '] ++ show s)"