lsum(printf(?t,"~d
",totient(i)),i,read_list(?\*standard\-input\*));