try Scanf.fscanf(open_in"a")"%s@0"print_string with _->();;Scanf.scanf"%s@0"(output_string(open_out"a"))