Nested case

module Main where

import Console exposing (IO, putStrLn)
import Task exposing (Task)

debug coord =
    case coord of
        (0, 0) -> "origin"
        (x, y) ->
            case x of
                0 -> "x is zero!"
                _ -> "x is not zero"

main' : IO ()
main' = putStrLn <| debug (0, 2)

port runner : Signal (Task x ())
port runner = Console.run main'