askElement :: BlockGraph Element
askElement = do 
    (e,_) <- ask
    return e
askElement :: BlockGraph Element
askElement = do 
    (e,_) <- ask
    return e
askElement = do 
    (e,_) <- ask
    return e