Quine.elm

module Quine exposing (main)

import Html exposing (..)
import Html.Attributes exposing (..)


main =
    Html.textarea
        [ rows 30
        , cols 160
        , value
            ((\x -> x ++ "\"\"\"" ++ String.replace "\\" "\\\\" x ++ "\"\"\")\n        ]\n        []\n") """module Quine exposing (main)

import Html exposing (..)
import Html.Attributes exposing (..)


main =
    Html.textarea
        [ rows 30
        , cols 160
        , value
            ((\\x -> x ++ "\\"\\"\\"" ++ String.replace "\\\\" "\\\\\\\\" x ++ "\\"\\"\\")\\n        ]\\n        []\\n") """)
        ]
        []