(while:prn:apply +(map(fn(x)(* x x))(range 1(read))))