intro :- writeln('Please Enter Your Name:'),
read(Name),
write('Hello'),tab(1),writeln(Name),
writeln('Are You Male or Female?'),
read(Gender),
    (Gender = 'male' -> male, !;
    (Gender = 'Male' -> male,!;
    (Gender = 'female' -> female,!;
    (Gender = 'Female' -> female)))).
male :- writeln(Name).
female :- writeln(Name).