[simantics/platform.git] / LocalDefinitions5.scl

import "Prelude"

data Foo = Foo Double Double

a = Foo 1 2

b = y
  where
    Foo x y = a
    
main = show b
--
2.0