let difficulty = flip 0.4 in
let intelligence = flip 0.3 in
let grade = if difficulty && intelligence then flip 0.05
            else if difficulty || intelligence then flip 0.5
            else flip 0.9 in
let letter = if grade then flip 0.9 else flip 0.05 in
observe(letter);
intelligence