let rec(@)i s=print_char s.[i];i+2@s;;0@read_line()