$<.map{|n|p [1,2,4,7,8,11,13,14][(n=n.to_i-1)%8]+n/8*15}