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'