module MultiPositions where import Data.List (find) import qualified Data.Foldable (foldl, foldl')