createPointLoads :: N.NodeMap -> X.Element -> [L.PointLoad] 
createPointLoads nm el = map createPointLoad' xmlploads
    where xmlploads = X.findElements (X.unqual "pointload") el
          createPointLoad' = createPointLoad nm 
createPointLoads :: N.NodeMap -> X.Element -> [L.PointLoad]
createPointLoads nm el = map createPointLoad' xmlploads
    where xmlploads = X.findElements (X.unqual "pointload") el
          createPointLoad' = createPointLoad nm 
createPointLoads nm el = map createPointLoad' xmlploads
    where xmlploads = X.findElements (X.unqual "pointload") el
          createPointLoad' = createPointLoad nm 