nullSym' :: Monad m => (ReaderT (Array Symbol ByteString) m) Symbol
nullSym' = liftM (fst . bounds) ask
nullSym' :: Monad m => (ReaderT (Array Symbol ByteString) m) Symbol
nullSym' = liftM (fst . bounds) ask
nullSym' = liftM (fst . bounds) ask