#!/usr/bin/runhugs
module Main where
import Data.List

main = putStrLn(unlines p++"  ["++s p++"]") where
 s = concat . intersperse ",\n  " . map show
 p =
  ["#!/usr/bin/runhugs",
  "module Main where",
  "import Data.List",
  "",
  "main = putStrLn(unlines p++\"  [\"++s p++\"]\") where",
  " s = concat . intersperse \",\\n  \" . map show",
  " p ="]
