:load expl/Examples.hs
:set +simplify
:generalise shiftr
:test shiftr on "shiftr [0, 1, 2, 3, 4]"
:quit
