foos [] x = x; foos (y:ys) x = foo y $ foos ys x