Change the implementation of optional

[mlms13]

Now that we have a null decoder, we can decode optional values as:

let optional =
  decoder => alt(null |> map(() => None), decoder |> map(Option.pure))

See #124