let run () = print_string (Common.header ^ Common.help_text ^ Common.footer ^ "\n")