pure package:free

This is Prism' (Free f a) a in disguise
>>> preview _Pure (Pure 3)
Just 3
>>> review _Pure 3 :: Free Maybe Int
Pure 3