(loop(princ(abs(read)))(terpri))