module {
    features = [fields]
}

import "Prelude"

data Foo = Foo { x :: Double }
data Bar = Bar { x :: Double, y :: Double }

main = sum $ map (\v -> v.x) l
  where
    l = [Foo 1.0, Foo 2.0]
-- 
3.0