!> This file was processed by `fypp`.
!> Today's fortune: "Happy MLE", really OK?
!> ランダムウォーク猿「'ソート' で はっぴー.」
!> ギャンブラー猿「...」
program f902827
  use, intrinsic :: iso_fortran_env
  !> auto use module
  implicit none
  integer(int32) :: n
  character, allocatable :: cs(:)
  integer(int32), allocatable :: ps(:)
  read(input_unit, *) n
  allocate(cs(n))
  read(input_unit, '(*(a1))') cs(:)
  allocate(ps(n))
  read(input_unit, *) ps(:)
  cs(:) = cs(ps)
  write(output_unit, '(*(a1))') cs(:)
end program f902827