import Data.List gS (%) s =g where g (a:b:l) = s a++a%b++g (b:l); g [b]=s b e a b|a>b=" > "|ab='V'|a