type storage = unit

let main (p: unit) storage =
  if true then failwith "This contract always fails" else ()