program speedrun
  use iso_fortran_env
  implicit none
  integer::X
  character(100)::ANS=""
  integer::i
  read*,X
  do i=1,X
    ANS=trim(ANS)//repeat(char(ichar("9")-i+1),X)
  end do
  print"(A)",ans
end program speedrun