$lib $libfio rout main print "Enter input filename: " def filename:str <- reads def h:int <- fopeni (filename) printn "===============================================================================" loop (feof (h) = false) print fread (h) printn "===============================================================================" fclose h