case (xm, ym) of (Just x, Just y) -> x + y _ -> 0
match (xm, ym) { (Some(x), Some(y)) => x + y, _ => 0 }