getAtom :: String -> M Atom
getAtom s = do
    d <- asks display
    liftIO $ internAtom d s False
getAtom :: String -> M Atom
getAtom s = do
    d <- asks display
    liftIO $ internAtom d s False
getAtom s = do
    d <- asks display
    liftIO $ internAtom d s False