runKerchief :: Kerchief a -> IO a
runKerchief (Kerchief r) = do
    config <- initKerchiefConfig
    evalStateT (runReaderT r config) initKerchiefState
runKerchief :: Kerchief a -> IO a
runKerchief (Kerchief r) = do
    config <- initKerchiefConfig
    evalStateT (runReaderT r config) initKerchiefState
runKerchief (Kerchief r) = do
    config <- initKerchiefConfig
    evalStateT (runReaderT r config) initKerchiefState