mapDefault : Traversable t => (a -> b) -> t a -> t b
foldrDefault : Traversable t => (a -> acc -> acc) -> acc -> t a -> acc