waldemar@onelab:~/Desktop/rafael$ cat ~/.local/lib/rafael/map.rf 
(def map f
  (null
    (set a)
    (for x &args
      (set a &a
        (run &f (get x))
      )
    )
  )
  (ret &a)
)
waldemar@onelab:~/Desktop/rafael$ cat main.rf 
(import 'map.rf' 'println.rf')

(set a 2 5 10 25 19)

(println &a)

(println
  (map (lambda x (* &x 2)) &a)
)
waldemar@onelab:~/Desktop/rafael$ ./rafael main.rf 
2 5 10 25 19
4 10 20 50 38
waldemar@onelab:~/Desktop/rafael$

#define BYTE_FROM_BIT(b8, b7, b6, b5, b4, b3, b2, b1) \
  b8 << 7u | b7 << 6u | b6 << 5u | b5 << 4u | b4 << 3u | b3 << 2u | b2 << 1u | b1

#define BYTE_FROM_BITS(bits) \
  bits % 10 | bits / 10 % 10 << 1 | bits / 100 % 10 << 2 | bits / 1000 % 10 << 3 | \
  bits / 10000 % 10 << 4 | bits / 100000 % 10 << 5 | bits / 1000000 % 10 << 6 | \
  bits / 10000000 % 10 << 7

waldemar@onelab:~/Desktop/rafael$ cat test.c 
#define BYTE_FROM_BITS(bits) \
  bits % 10 | bits / 10 % 10 << 1 | bits / 100 % 10 << 2 | bits / 1000 % 10 << 3 | \
  bits / 10000 % 10 << 4 | bits / 100000 % 10 << 5 | bits / 1000000 % 10 << 6 | \
  bits / 10000000 % 10 << 7

#include "stdio.h"

int main() {
  printf("%d\n", BYTE_FROM_BITS(10100000));
}
waldemar@onelab:~/Desktop/rafael$ mint test.c 
160
waldemar@onelab:~/Desktop/rafael$