m:-prompt1(''),k(0). k(N):-tab(N),read_line_to_codes(user_input,S),not(S=end_of_file),format('~s', [S]),nl,length(S,L),k(L+N).