Extract package:comonad

extract . fmap f = f . extract