module Main where

import Commands
import Lib

import Driver.Console

dummyScript :: Script ()
dummyScript = do
    forward 5.5
    clockwise 30.0
    forward 3.2

main :: IO ()
main = run dummyScript

module Main where

import Commands
import Lib
import System

import Driver.Console

dummyScript :: Script ()
dummyScript = do
    forward chrs 5.5
    clockwise chrs 30.0
    forward chrs 3.2
  where chrs = Vehical 0.2 (\x -> (*1.8) . fromIntegral $ x) (\x -> x*0.25)

main :: IO ()
main = run dummyScript

Change a little the body of dummyScript function.
Change a little the body of dummyScript function.
