>>> fromRight 1 (Right 3) 3 >>> fromRight 1 (Left "foo") 1
fromRight' x ≡ x^?!_Right
>>> fromRight' (Right 12) 12