createPointLoad :: N.NodeMap -> X.Element -> L.PointLoad
createPointLoad nm el = L.PointLoad v node ang f
    where Just f = XC.xmlAttr "f" el >>= Just . read
          Just v = XC.xmlAttr "v" el >>= Just . read
          Just ang = XC.xmlAttr "ang" el >>= Just . read
          Just nid = XC.xmlAttr "node" el
          Just node = Map.lookup nid nm
createPointLoad :: N.NodeMap -> X.Element -> L.PointLoad
createPointLoad nm el = L.PointLoad v node ang f
    where Just f = XC.xmlAttr "f" el >>= Just . read
          Just v = XC.xmlAttr "v" el >>= Just . read
          Just ang = XC.xmlAttr "ang" el >>= Just . read
          Just nid = XC.xmlAttr "node" el
          Just node = Map.lookup nid nm
createPointLoad nm el = L.PointLoad v node ang f
    where Just f = XC.xmlAttr "f" el >>= Just . read
          Just v = XC.xmlAttr "v" el >>= Just . read
          Just ang = XC.xmlAttr "ang" el >>= Just . read
          Just nid = XC.xmlAttr "node" el
          Just node = Map.lookup nid nm