import Graphics.Element (Element)
import Text (asText)
import Signal (Signal, map, foldp)
import Time (fps)

type alias Point = {x: Float, y: Float}

main : Signal Element
main = map asText <| foldp update {x=0, y=0} (fps 30)

update : Float -> Point -> Point
update dt g = {g | x <- g.x + dt}