external observe : 'a -> 'b = "observe"
external guard : 'a -> 'b = "guard"
  
let f1 = function
  | true -> observe 1
  | _ -> observe 0