lang

lang.hs

main : String -> String
main x => {
    y = x + x
    y
}

main : String -> String
main x => {
    case x of {
    | "hi" => "bye"
    | "test" => "test"    
    }
}

main : String -> String
main "hi" = "bye"
main "test" = "test" 

module Main exposing (x) {
    x = x + 2
}