1 2 3 4 5 6 7
[set map [fn [f l] [if [same l []] [] [pair [f [head l]] [map f [tail l]]] ]]] [map [fn [n] [sum n 10]] [quote [1 2 3 4 5]] ]
