(a:b:r)%c|a==b=(b:r)%c|1<3=c a b
f s
|a
<-[g
(>=)s
,g
(<=)s
]=or a:a
++[s
%(<),s
%(>)]
-- output: [SW?, CF?, CP?, CW?, CC?]
bWFpbiA9IGludGVyYWN0ICQgc2hvdyAuIGYKCnogZj10YWlsPj49emlwV2l0aCBmCmcgYz1hbmQueiBjLmZpbHRlcigvPTApLm1hcCBhYnMueigtKS5tYXAgZnJvbUVudW0KKGE6YjpyKSVjfGE9PWI9KGI6ciklY3wxPDM9YyBhIGIKZiBzfGE8LVtnKD49KXMsZyg8PSlzXT1vciBhOmErK1tzJSg8KSxzJSg+KV0KCi0tIG91dHB1dDogW1NXPywgQ0Y/LCBDUD8sIENXPywgQ0M/XQ==