http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_B {- http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html#section_B 2007.06.07 nisikawa -} import Control.Arrow import Data.List (nub) revF (x, y) =…