data Foo = Foo
  { r1 :: Int
  , r2 :: Int
  }