program main
    integer :: linelen = 2
    character, dimension(linelen) :: line
end program