(drain(prn:= n(aif(read)it odd.n(+(* 3 n)1)(/ n 2)))1)