:o= foldr inline constant
henderson.hu
sqrlmt.hs