remove duplication in duplicate
ListZipper findLeft using comonad