RosettaCodeData/Task/Null-object/Haskell/null-object-4.hs

add_two_maybe_numbers x y do
  a <- x
  b <- y
  return (a+b)