ogdl = liftM (ogdlRoot . concat) $ tree `sepEndBy1` whiteSpace
  where ogdlRoot xs = (Node "OGDL" xs)
ogdl = liftM (ogdlRoot . concat) $ tree `sepEndBy1` whiteSpace
  where ogdlRoot xs = (Node "OGDL" xs)
ogdl = liftM (ogdlRoot . concat) $ tree `sepEndBy1` whiteSpace
  where ogdlRoot xs = (Node "OGDL" xs)