@@ -78,8 +78,12 @@ choice(F) ->
case get_line('(c)ontinue (q)uit -->', "c\n") of
"c\n" ->
F();
+ <<"c\n">> ->
+ F();
"q\n" ->
quit;
+ <<"q\n">> ->
+ quit;
_ ->
choice(F)
end.