print OF1 $lines;