add example in main.F