program cat use iso_varying_string type(varying_string):: buf integer:: ios do call get(buf, iostat=ios) if (ios /= 0) exit call put_line(char(27) // "[32m" // buf // char(27) // '[m') buf = '' enddo end program