Untitled

import Html exposing (text, div)
type alias Year = Maybe Int

happyNewYear: Year -> String
happyNewYear year = toString year ++ "年あけましておめでとうございます。"

main =
    div []
    [ text (happyNewYear (Just 2018))
    ]