genGet :: Gen AtomT -> AtomSpace (Maybe (Gen AtomT))
genGet (Gen a) = do
    res <- get a
    case res of
        Just x ->  return $ Just $ Gen x
        Nothing -> return $ Nothing
genGet :: Gen AtomT -> AtomSpace (Maybe (Gen AtomT))
genGet (Gen a) = do
    res <- get a
    case res of
        Just x ->  return $ Just $ Gen x
        Nothing -> return $ Nothing
genGet (Gen a) = do
    res <- get a
    case res of
        Just x ->  return $ Just $ Gen x
        Nothing -> return $ Nothing