gistfile1.ex

z = fn
  f -> fn
    x -> f.(fn y -> x.(x).(y) end)
  end.(fn
    x -> f.(fn y -> x.(x).(y) end)
  end)
end

add_squares = z.(fn
  f -> fn
    [n|ns] -> n*n + f.(ns)
    []     -> 0
  end
end)

IO.puts "#{add_squares.([1, 2, 5])}"