main = putStr (s ++  [';',' ','s',' ','=', ' ','f','+','+'] ++ show s ++ 
 [';',' ','f',' ','='] ++ show f); 
s = f  ++ 
    "main = putStr (s ++  [';',' ','s',' ','=', ' ','f','+','+'] ++ show s \
    \++[';',' ','f',' ','='] ++ show f)";
f = "--\n"