Provide a print_source primitive

It have implemented a print_source primitive that prints the source of the progam.