integer x
        write(6,*) x
        end