start :: Box Double
start = Box { func = \x y -> realToFrac x + y
            , obj = 0 }
start :: Box Double
start = Box { func = \x y -> realToFrac x + y
            , obj = 0 }
start = Box { func = \x y -> realToFrac x + y
            , obj = 0 }