foldl1 (++) $ List.intersperse "-n" (replicate 3 "om")
(((<|>).((<|>)<$>(!!0)<*>(!!1)))<*>(!!2))[x<|>y|x<-["om"],y<-(<*>)(:)(:[[]])"-n"]