-- foo
let x = foo . length . map f [1..3]