SelectManyをApplicativeな感じにしてみた