(apply pr(sort >(take(read)(repeatedly read))))