Create main-foresight3-999.R

It works. next work on: better data loader, simplify code