YSITD_Chat_Bot says to #ysitd <petercommand>: (bystartw_tw: 我在找實作...) let t = [[]] ++ map (\s -> [s:[]]) "abc" in do { (m:[]) <- t ; d <- t ; return (join $ m:d) }