===== script =====
map := {
_ [] -> []
f [x ~xs] -> [(f x) ~(map f xs)]
}

print (map {x -> + x 1} [1 2 3])

===== output =====
[
  2
  3
  4
]