Я бы хотел представить список из (before, during, after) пар, такой что all (\(_, _, after),...

Я написал некоторый код, который принимает гетерогенный список и индексирует его. {-# Language...