let rec(@)s n=n=0||print_char s=print_int(n mod 1000)=','@n/1000;;while '
'@read_int()do()done