type foobar = int option

let s : foobar = Some 42
let n : foobar = None