program festival
  implicit none
  integer(8) :: k, dp(0:600,0:8) = 0_8
  integer :: i, j, l, c, n
  character(5000) :: s = ""
  character(1) :: t
  read(*,*) k
  dp(0,0) = 1_8
  l = 1
  do
    do i = 1, 8
      do j = 0, i
        dp(l,i) = dp(l,i)+dp(l-1,j)
      end do
    end do
    if (dp(l,8) > k) exit
    l = l+1
    if (l > 600) exit
  end do
  n = 0
  do i = l-1, 1, -1
    c = k/dp(i,8)
    do j = n+1, n+c
      s(j:j) = "L"
    end do
    n = n+c
    s(n+1:n+7) = "AVITSEF"
    n = n+7
    k = k-int(c,8)*dp(i,8)
  end do
  do i = 1, n/2
    t = s(i:i)
    s(i:i) = s(n-i+1:n-i+1)
    s(n-i+1:n-i+1) = t
  end do
  write(*,'(a)') trim(s)
end program festival