QuineHaskell

l                =
                [""
               ,"  "
              ," ];m"
             ,"ain=ma"
            ,"pM_ putS"
           ,"tr(\"l\":m"
          ,"ap(f\n  repl"
         ,"icate length)("
        ,"\"= \":\"[\\\"\\"
       ,"\"\":\n (map ((\","
      ,"\"++).show).tail)l)+"
     ,"+l  )\nf r g s=r(17-di"
    ,"v(g s)2)' '++s++\"\\n\" "
   ];main=mapM_ putStr("l":map(f
  replicate length)("= ":"[\"\"":
 (map ((","++).show).tail)l)++l  )
f r g s=r(17-div(g s)2)' '++s++"\n"