#define tomc_p(...) {printf("[tomc] "); printf(__VA_ARGS__); printf("\n");}
#define tomd_p(...) {printf("[tomd] "); printf(__VA_ARGS__); printf("\n");}
#define SCM_ARR(arr, index) (scm_list_ref(arr, scm_from_int(index)))
#define tomc_p(...) {printf("[tomc] "); printf(__VA_ARGS__); printf("\n");}
#define tomd_p(...) {printf("[tomd] "); printf(__VA_ARGS__); printf("\n");}
#define SCM_ARR(arr, index) (scm_list_ref(arr, scm_from_int(index)))