data Foo : Type where
  FooBase : Foo
  (@) : Foo -> Foo -> Foo