module Scientist.Control ( Control(..) ) where newtype Control a = Control { Control a -> a unControl :: a }