comp :: Comp Environment State Order Price History0 History0 State Order Price History0 History0 ()
comp = logVar >> oneStep
comp :: Comp Environment State Order Price History0 History0 State Order Price History0 History0 ()
comp = logVar >> oneStep
comp = logVar >> oneStep