queryCmd :: (Worker -> IO a) -> History -> a
queryCmd w hist =
    unsafePerformIO $ getWorker True hist >>= w
queryCmd :: (Worker -> IO a) -> History -> a
queryCmd w hist =
    unsafePerformIO $ getWorker True hist >>= w
queryCmd w hist =
    unsafePerformIO $ getWorker True hist >>= w