name' :: Monad m => Symbol -> (ReaderT (Array Symbol ByteString) m) ByteString
name' sym = liftM (! sym) ask
name' :: Monad m => Symbol -> (ReaderT (Array Symbol ByteString) m) ByteString
name' sym = liftM (! sym) ask
name' sym = liftM (! sym) ask