Nicer intro and output

main.pl

@@ -1,12 +1,16 @@
 % Expert system should be started from here
 main :-
-  write('Which programming language should I learn first?'),
-  nl,
+  intro,
   reset_answers,
   find_language(Language),
   describe(Language), nl.
 
 
+intro :-
+  write('Which programming language should I learn first?'), nl,
+  write('To answer, input the number shown next to each answer, followed by a dot (.)'), nl, nl.
+
+
 find_language(Language) :-
   language(Language), !.
 
@@ -19,7 +23,6 @@
 % reset_answers must always return true; because retract can return either true
 % or false, we fail the first and succeed with the second.
 reset_answers :-
-  write('Resetting progress...'),
   retract(progress(_, _)),
   fail.
 reset_answers.