type blah =
  | Foo
  | Bar of string