tipe.c: simplified tipe_init