s "agc" >>= print
s "bgd" >>= print
s "agd" >>= print
s "bgc" >>= print