gopurdue.hs

main = let inputs = [InputAction Immediate $ getGpioRisingEdge ()]
           initial = cycle "GO PURDUE! "
           update _ state = tail state
           outputs = [OutputAction Immediate $ print . head]
        in topLevel inputs update initial outputs
        
main = let inputs = [InputAction (Repeat 1000000) $ return ()]
           initial = cycle "GO PURDUE! "
           update _ state = tail state
           outputs = [OutputAction Immediate $ print . head]
        in topLevel inputs update initial outputs