module {
    features = [fields]
}

import "Prelude"

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

main = f.x + b.x + b.y
  where
    f = Foo 1.0
    b = Bar 2.0 3.0
-- 
6.0