[better names to loop
Evan Martin <martine@danga.com>**20060217023922] {
hunk ./MPDMate.hs 14
-loop a f = loop' a where
-  loop' a = f a >>= loop'
+loop state iter = loop' state where
+  loop' state = iter state >>= loop'
}