unstream . cons c . stream = cons c
fmap fst . uncons . stream = fmap fst . uncons
fmap (unstream . snd) . uncons . stream = fmap snd . uncons