{This program takes, as input, the users first name. As output, it prints,}
{to the screen, a famous TV personality.}

Program Hello(Input,Output);
uses crt;
var name :string;
     Begin

{First Initialize the variable}

          name:=('');
          clrscr;
          textcolor(15);
          write('So, uhhh, what''s your name uhuhuhuhuhuhuhh!');
          textcolor(red);
          write('--->');
          textcolor(cyan);

{Accept the Input}

          readln(name);

{Print the Final Output}

          textcolor(DarkGray);
          writeln('');
          writeln('              _') ;
          writeln('          __-/ \_') ;
          writeln('         /       \') ;
          writeln('        /        |/\') ;
          writeln('       /             \') ;
          writeln('       /  _          |') ;
          writeln('       | / \_   /--\  \') ;
          writeln('       |/    \//    \ |') ;
          writeln('       /             \|      So, uhh, ',name,' why');
          writeln('      \|    _   _     H      didja hook up the type-');
          writeln('      \|   -O  |O-    |      writer to the TV?');
          writeln('       C    _  \_     D');
          writeln('       |   (n| |h)   | ');
          writeln('        \    \_/     / ');
          writeln('        |           /  ');
          writeln('         \ (--==-)  |  ');
          writeln('          \        /   ');
          writeln('           \  __  /    ');
          writeln('            |    |     ');
          writeln('            |    |     ');
          writeln('            |    |     ');
          writeln('                       ');
          writeln('                       ');
          textcolor(15);
          writeln('Thanx to Jeff (http://www.eecis.udel.edu/~morriss) for');
          writeln('the inspiration. You are the man! ');
          readln;
     end.