What is the best way to extract a Right/Left value in repl without having to write functions that do it every time?
This is ugly:
a = Right 3
getRight x = head $ rights [x]
getRight a -- 3
edit: fromRight requires providing an alternative value, but it may not be trivial to create one with complicated types.