monte.c first version