procedure main();writes(&ascii--read(open(&file)));end