module Main where

import Game (initialGame)
import Display (display)
import Step (step)
import Input (getInput)
import Vec2 (originVec)

main : Signal Element
main = lift display (foldp step (initialGame originVec 0) getInput)