exception B of (int*int)
let _ = raise ( B(3,4) )