loadDef :: X.Element -> LoadDef
loadDef el = (lid, (L.Load y1 y2 x1 x2 loadfactor))
    where Just lid = XC.xmlAttr "id" el  
          Just loadfactor = XC.xmlAttr "f" el >>= Just . read 
          (y1,y2) = findDistLoads el $ LDY
          (x1,x2) = findDistLoads el $ LDX
loadDef :: X.Element -> LoadDef
loadDef el = (lid, (L.Load y1 y2 x1 x2 loadfactor))
    where Just lid = XC.xmlAttr "id" el  
          Just loadfactor = XC.xmlAttr "f" el >>= Just . read 
          (y1,y2) = findDistLoads el $ LDY
          (x1,x2) = findDistLoads el $ LDX
loadDef el = (lid, (L.Load y1 y2 x1 x2 loadfactor))
    where Just lid = XC.xmlAttr "id" el  
          Just loadfactor = XC.xmlAttr "f" el >>= Just . read 
          (y1,y2) = findDistLoads el $ LDY
          (x1,x2) = findDistLoads el $ LDX