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