samp :: Writer (DList Char) () -- from Writer w a
samp = (\f twoB -> mapM_ f [twoB, " or not ", twoB]) (tell . dl) "to be"
samp :: Writer (DList Char) ()
samp = (\f twoB -> mapM_ f [twoB, " or not ", twoB]) (tell . dl) "to be"
samp = (\f twoB -> mapM_ f [twoB, " or not ", twoB]) (tell . dl) "to be"