greet([]).

greet([X|Y]):-
      greet(X),
      greet(Y).

greet(X):-
      write('Hello'),
      tab(1),
      write(X),
      nl.

prstring([]).
prstring([X|Y]):-
      put(X),
      prstring(Y).

greetstr(X):-
      write('Hello'),
      tab(1),
      prstring(X),
      nl.