lama_byterun/regression/test058.expr

fun map (f, l) {
  case l of
    {}     -> return {}
  | h : tl -> return (f (h) : map (f, tl))
  esac
}

fun a (x) {return x + 1}
fun b (x) {return x + 2}

fun print_list (x) {
  case x of
    {} -> skip
  | h : tl -> write (h); print_list (tl)
  esac
}

local x = read ();

print_list ({1, 2, 3});
print_list (map (a, {1, 2, 3}));
print_list (map (b, {1, 2, 3}))