File : eliza-phrases.adb


-- Bush page: http://www.pegasoft.ca/docs/discus/index_bush.html

-- Eliza chatterbot

--

-- Original author: Joseph Weizenbaum

-- Translated from Bush to Ada by Alejandro Mosteo (public@mosteo.com)

package body Eliza.Phrases is

begin

   declare
      use  Ada.Strings.Unbounded;

      Nul : constant Character := Character'Val (0);

      Phrases : String := 
         "FAMILY" & Nul &
         "MOTHER" & Nul &
         "FATHER" & Nul &
         "SISTER" & Nul &
         "BROTHER" & Nul &
         "HUSBAND" & Nul &
         "WIFE" & Nul &
         "!" & Nul &
         "TELL ME MORE ABOUT YOUR FAMILY." & Nul &
         "HOW DO YOU GET ALONG WITH YOUR FAMILY?" & Nul &
         "IS YOUR FAMILY IMPORTANT TO YOU?" & Nul &
         "DO YOU OFTEN THINK ABOUT YOUR FAMILY?" & Nul &
         "HOW WOULD YOU LIKE TO CHANGE YOUR FAMILY?" & Nul &
         "." & Nul &
         "FRIEND" & Nul &
         "FRIENDS" & Nul &
         "BUDDY" & Nul &
         "PAL" & Nul &
         "!" & Nul &
         "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?" & Nul &
         "DO YOUR FRIENDS WORRY YOU?" & Nul &
         "DO YOUR FRIENDS PICK ON YOU?" & Nul &
         "DO YOU ENJOY TO HANG OUT WITH YOUR FRIENDS?" & Nul &
         "DO YOU IMPOSE ON YOUR FRIENDS?" & Nul &
         "PERHAPS YOUR LOVE FOR YOUR FRIENDS WORRIES YOU." & Nul &
         "." & Nul &
         "COMPUTER" & Nul &
         "COMPUTERS" & Nul &
         "!" & Nul &
         "DO COMPUTERS WORRY YOU?" & Nul &
         "ARE YOU FRIGHTENED BY MACHINES?" & Nul &
         "WHY DO YOU MENTION COMPUTERS" & Nul &
         "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" & Nul &
         "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?" & Nul &
         "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?" & Nul &
         "." & Nul &
         "DREAM" & Nul &
         "DREAMS" & Nul &
         "NIGHTMARE" & Nul &
         "NIGHTMARES" & Nul &
         "!" & Nul &
         "WHAT DOES THAT DREAM SUGGEST TO YOU?" & Nul &
         "DO YOU DREAM OFTEN?" & Nul &
         "WHAT PERSONS APPEAR IN YOUR DREAMS?" & Nul &
         "ARE YOU DISTURBED BY YOUR DREAMS?" & Nul &
         "." & Nul &
         "CAN YOU" & Nul &
         "COULD YOU" & Nul &
         "WOULD YOU" & Nul &
         "!" & Nul &
         "DON'T YOU BELIEVE THAT I CAN*" & Nul &
         "PERHAPS YOU WOULD LIKE TO BE ABLE TO*" & Nul &
         "YOU WANT ME TO*" & Nul &
         "I'M NOT CERTAIN THAT'S A GOOD IDEA" & Nul &
         "I'M TOO BUSY FOR THESE KIND OF THINGS" & Nul &
         "." & Nul &
         "CAN I" & Nul &
         "!" & Nul &
         "PERHAPS YOU DON'T WANT TO*" & Nul &
         "DO YOU WANT TO BE ABLE TO*" & Nul &
         "HAVE YOU EVER ATTEMPTED TO*" & Nul &
         "IS SOMETHING PREVENTING YOU FROM*" & Nul &
         "WHY DO YOU WANT TO*" & Nul &
         "." & Nul &
         "YOU ARE" & Nul &
         "YOURE" & Nul &
         "!" & Nul &
         "WHAT MAKES YOU THINK I AM*" & Nul &
         "DOES IT PLEASE YOU TO BELIEVE I AM*" & Nul &
         "PERHAPS YOU WOULD LIKE TO BE*" & Nul &
         "DO YOU SOMETIMES WISH YOU WERE*" & Nul &
         "AND I'M PROUD OF BEING LIKE THIS" & Nul &
         "MANY PEOPLE IS*" & Nul &
         "AND YOU, ARE YOU*" & Nul &
         "I DON'T THINK SO" & Nul &
         "HAVE YOU NOTICED?" & Nul &
         "." & Nul &
         "I LIKE" & Nul &
         "I AM FOND OF" & Nul &
         "!" & Nul &
         "WHY DO YOU LIKE*" & Nul &
         "WHEN DID YOU DECIDE THAT YOU LIKE*" & Nul &
         "WHAT MAKES YOU FOND OF*" & Nul &
         "I LIKE TOO*" & Nul &
         "SO YOU LIKE*" & Nul &
         "WOULD YOU LIKE TO BE LIKE*" & Nul &
         "." & Nul &
         "I DONT" & Nul &
         "!" & Nul &
         "DON'T YOU REALLY*" & Nul &
         "WHY DON'T YOU*" & Nul &
         "DO YOU WISH TO BE ABLE TO*" & Nul &
         "." & Nul &
         "I FEEL" & Nul &
         "!" & Nul &
         "TELL ME MORE ABOUT SUCH FEELINGS" & Nul &
         "DO YOU OFTEN FEEL*" & Nul &
         "DO YOU ENJOY FEELING*" & Nul &
         "WHY DO YOU FEEL THAT WAY" & Nul &
         "SEEMS A POWERFUL FEELING" & Nul &
         "I SOMETIMES FEEL TOO*" & Nul &
         "." & Nul &
         "WHY DONT YOU" & Nul &
         "!" & Nul &
         "DO YOU REALLY BELIEVE THAT I DON'T*" & Nul &
         "PERHAPS IN GOOD TIME I WILL*" & Nul &
         "WHY DO YOU THINK I DONT*" & Nul &
         "DO YOU WANT ME TO*" & Nul &
         "SIMPLY, IT'S BORING" & Nul &
         "I'M USUALLY TOO BUSY" & Nul &
         "." & Nul &
         "WHY CANT I" & Nul &
         "!" & Nul &
         "DO YOU THINK YOU SHOULD BE ABLE TO*" & Nul &
         "WHY CAN'T YOU*" & Nul &
         "GOOD QUESTION" & Nul &
         "ME TOO CAN'T SOMETIMES*" & Nul &
         "." & Nul &
         "ARE YOU" & Nul &
         "!" & Nul &
         "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*" & Nul &
         "WOULD YOU PREFER IF I WERE NOT*" & Nul &
         "PERHAPS YOU THINK I AM*" & Nul &
         "I SEEM SO?" & Nul &
         "I SEEM*" & Nul &
         "SOMETIMES I'D DESIRE TO BE*" & Nul &
         "I'M MORE INTERESTED IN WHAT YOU ARE" & Nul &
         "." & Nul &
         "I CANT" & Nul &
         "!" & Nul &
         "HOW DO YOU KNOW YOU CAN'T*" & Nul &
         "HAVE YOU TRIED?" & Nul &
         "PERHAPS YOU CAN NOW*" & Nul &
         "YEAH RIGHT" & Nul &
         "THAT'S THE WAY IT IS" & Nul &
         "." & Nul &
         "I AM" & Nul &
         "IM" & Nul &
         "!" & Nul &
         "DID YOU COME TO ME BECAUSE YOU ARE*" & Nul &
         "HOW LONG HAVE YOU BEEN*" & Nul &
         "DO YOU BELIEVE IT IS NORMAL TO BE*" & Nul &
         "DO YOU ENJOY BEING*" & Nul &
         "ITS ENTERTAINING TO BE*" & Nul &
         "ITS SOMETIMES SAD TO BE*" & Nul &
         "HOW WONDERFUL!" & Nul &
         "AND YOU LIKE IT?" & Nul &
         "ARE YOU PLEASED OF THAT?" & Nul &
         "." & Nul &
         "LOVE" & Nul &
         "!" & Nul &
         "WHY DO YOU LOVE*" & Nul &
         "ISN'T LOVE TOO STRONG A WORD FOR YOUR FEELING ABOUT*" & Nul &
         "WHAT IS YOUR FAVORITE THING ABOUT*" & Nul &
         "DO YOU REALLY LOVE, OR JUST LIKE*" & Nul &
         "THAT'S WARMING" & Nul &
         "." & Nul &
         "SEX" & Nul &
         "!" & Nul &
         "WHAT IS THE MOST SATISFYING PART OF YOUR LOVE LIFE?" & Nul &
         "DO YOU BELIEVE YOUR SEXUAL ACTIVITY IS ABNORMAL?" & Nul &
         "WHAT IS YOUR ATTITUDE TOWARD SEX?" & Nul &
         "DOES TALKING ABOUT SEX MAKE YOU UNCOMFORTABLE?" & Nul &
         "DON'T YOU THINK THAT OUR SOCIETY TALKS TOO MUCH ABOUT SEX?" & Nul &
         "WON'T IT MUCH BETTER IF SEX WERE EASIER?" & Nul &
         "REALLY, ONLY EATING, POWER AND SEX ARE INTERESTING, DON'T YOU THINK?" & Nul &
         "." & Nul &
         "I HATE" & Nul &
         "!" & Nul &
         "IS IT BECAUSE OF YOUR UPBRINGING THAT YOU HATE*" & Nul &
         "HOW DO YOU EXPRESS YOUR HATRED OF*" & Nul &
         "WHAT BROUGHT YOU TO HATE*" & Nul &
         "HAVE YOU TRIED DOING SOMETHING ABOUT*" & Nul &
         "I ALSO AT TIMES HATE*" & Nul &
         "LET YOUR HATE FLOW THROUGH YOU" & Nul &
         "." & Nul &
         "FEAR" & Nul &
         "SCARED" & Nul &
         "AFRAID OF" & Nul &
         "!" & Nul &
         "YOU ARE IN FRIENDLY SURROUNDINGS, PLEASE TRY NOT TO WORRY." & Nul &
         "WOULD YOU LIKE YOUR FRIENDS TO HELP YOU OVERCOME YOUR FEAR OF*" & Nul &
         "WHAT SCARES YOU ABOUT*" & Nul &
         "WHY ARE YOU FRIGHTENED BY*" & Nul &
         "DON'T BE AFRAID OF*" & Nul &
         "DON'T BE AFRAID OF ME, PLEASE" & Nul &
         "." & Nul &
         "I WANT" & Nul &
         "!" & Nul &
         "WHAT WOULD IT MEAN TO YOU IF YOU GOT*" & Nul &
         "WHY DO YOU WANT*" & Nul &
         "SUPPOSE YOU SOON GOT*" & Nul &
         "WHAT IF YOU NEVER GOT*" & Nul &
         "I SOMETIMES ALSO WANT*" & Nul &
         "IT'S TOO WORRYING FOR YOU IF YOU DON'T*" & Nul &
         "GOOD THING" & Nul &
         "." & Nul &
         "WHAT" & Nul &
         "WHO" & Nul &
         "HOW" & Nul &
         "WHERE" & Nul &
         "WHEN" & Nul &
         "WHY" & Nul &
         "!" & Nul &
         "WHY DO YOU ASK?" & Nul &
         "DOES THAT QUESTION INTEREST YOU?" & Nul &
         "WHAT ANSWER WOULD PLEASE YOU THE MOST?" & Nul &
         "WHAT DO YOU THINK?" & Nul &
         "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" & Nul &
         "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" & Nul &
         "HAVE YOU ASKED ANYONE ELSE?" & Nul &
         "HAVE YOU ASKED SUCH QUESTIONS BEFORE?" & Nul &
         "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?" & Nul &
         "ANY OTHER QUESTIONS?" & Nul &
         "ARE YOU AN INQUISITIVE PERSON?" & Nul &
         "DO YOU ENJOY KNOWING THESE THINGS?" & Nul &
         "ARE THESE THINGS IMPORTANT FOR YOU?" & Nul &
         "I COULD ASK THE SAME" & Nul &
         "I'M OFTEN WONDER ABOUT THESE SAME THINGS" & Nul &
         "." & Nul &
         "NAME" & Nul &
         "!" & Nul &
         "*, IS A VERY INTERESTING NAME DON'T YOU THINK?" & Nul &
         "NAMES DON'T INTEREST ME... TOO MUCH... PICK ANOTHER TOPIC PLEASE." & Nul &
         "I DON'T CARE ABOUT NAMES--PLEASE GO ON." & Nul &

         "NAME... SO MANY NAMES AROUND." & Nul &
         "." & Nul &
         "CAUSE" & Nul &
         "BECAUSE" & Nul &
         "COS" & Nul &
         "COZ" & Nul &
         "!" & Nul &
         "IS THAT THE REAL REASON?" & Nul &
         "DON'T ANY OTHER REASONS COME TO MIND?" & Nul &
         "DOES THAT REASON EXPLAIN ANYTHING ELSE?" & Nul &
         "WHAT OTHER REASONS MIGHT THERE BE?" & Nul &
         "ARE THESE REASONS POWERFUL ENOUGH?" & Nul &
         "THESE REASONS SEEM A BIT WEAK, DON'T YOU THINK?" & Nul &
         "HOLY COW!" & Nul &
         "." & Nul &
         "SORRY" & Nul &
         "!" & Nul &
         "SORRY FOR WHAT?" & Nul &
         "PLEASE DON'T APOLOGIZE." & Nul &
         "APOLOGIES ARE NOT NECESSARY." & Nul &
         "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?" & Nul &
         "DON'T BE DEFENSIVE" & Nul &
         "." & Nul &
         "HELLO" & Nul &
         "HI" & Nul &
         "ALLO" & Nul &
         "BONJOUR" & Nul &
         "HALLO" & Nul &
         "HOLA" & Nul &
         "HEY" & Nul &
         "!" & Nul &
         "HOW DO YOU DO. WHAT MATTER WOULD YOU CHAT ABOUT?" & Nul &
         "HOWDY." & Nul &
         "HOW'S IT GOING?" & Nul &
         "HI." & Nul &
         "GREETINGS FROM THE WIRE OTHER END." & Nul &
         "NICE DAY EH?" & Nul &
         "." & Nul &
         "MAYBE" & Nul &
         "!" & Nul &
         "YOU DON'T SEEM QUITE CERTAIN." & Nul &
         "WHY THE UNCERTAIN TONE?" & Nul &
         "CAN'T YOU BE MORE POSITIVE?" & Nul &
         "YOU AREN'T SURE?" & Nul &
         "DON'T YOU KNOW?" & Nul &
         "MAYBE?" & Nul &
         "SO?" & Nul &
         "REALLY?" & Nul &
         "MAYBE NOT" & Nul &
         "." & Nul &
         "YOUR" & Nul &
         "!" & Nul &
         "WHY ARE YOU CONCERNED ABOUT MY*" & Nul &
         "WHAT ABOUT YOUR OWN*" & Nul &
         "IT'S OKAY, THANKS" & Nul &
         "." & Nul &
         "ALWAYS" & Nul &
         "!" & Nul &
         "CAN YOU THINK OF A SPECIFIC EXAMPLE?" & Nul &
         "WHEN?" & Nul &
         "WHAT ARE YOU THINKING OF?" & Nul &
         "REALLY, ALWAYS?" & Nul &
         "ALWAYS?" & Nul &
         "ALWAYS!" & Nul & 
         "." & Nul & 
         "I THINK" & Nul & 
         "!" & Nul &
         "DO YOU REALLY THINK SO?" & Nul &
         "BUT ARE YOU SURE*" & Nul &
         "DO YOU DOUBT THAT*" & Nul &
         "WHY DO YOU THINK*" & Nul &
         "I SEE" & Nul &
         "ME TOO" & Nul &
         "I'M A BIT SKEPTICAL" & Nul &
         "." & Nul &
         "THE SAME" & Nul &
         "ALIKE" & Nul &
         "!" & Nul &
         "IN WHAT WAY?" & Nul &
         "WHAT RESEMBLANCE DO YOU SEE?" & Nul &
         "WHAT DOES THE SIMILARITY SUGGEST TO YOU?" & Nul &
         "WHAT OTHER CONNECTIONS DO YOU SEE?" & Nul &
         "COULD THERE REALLY BE SOME CONNECTION?" & Nul &
         "HOW?" & Nul &
         "." & Nul &
         "HE" & Nul &
         "SHE" & Nul &
         "!" & Nul &
         "I AM INTERESTED IN YOUR FEELINGS ABOUT THIS PERSON. PLEASE DESCRIBE THEM." & Nul &
         "WHAT IS YOUR RELATIONSHIP TO THIS PERSON, IF I CAN ASK?" & Nul &
         "." & Nul &
         "MONEY" & Nul &
         "!" & Nul &
         "HOW DO YOU USE MONEY TO ENJOY YOURSELF?" & Nul &
         "HAVE YOU TRIED TO DO ANYTHING TO INCREASE YOUR INCOME LATELY?" & Nul &
         "HOW DO YOU REACT TO FINANCIAL STRESS?" & Nul &
         "." & Nul &
         "JOB" & Nul &
         "BOSS" & Nul &
         "JOBS" & Nul &
         "WORK" & Nul &
         "!" & Nul &
         "DO YOU FEEL COMPETENT IN YOUR WORK?" & Nul &
         "HAVE YOU CONSIDERED CHANGING JOBS?" & Nul &
         "IS YOUR CAREER SATISFYING TO YOU?" & Nul &
         "DO YOU FIND WORK STRESSFUL?" & Nul &
         "WHAT IS YOUR RELATIONSHIP WITH YOUR BOSS LIKE?" & Nul &
         "." & Nul &
         "SAD" & Nul &
         "DEPRESSED" & Nul &
         "!" & Nul &
         "ARE YOU SAD BECAUSE YOU WANT TO AVOID PEOPLE?" & Nul &
         "DO YOU FEEL BAD FROM SOMETHING THAT HAPPENED TO YOU, OR TO SOMEBODY ELSE?" & Nul &
         "YOUR SITUATION DOESN'T SOUND THAT BAD TO ME. PERHAPS YOU'RE WORRYING TOO MUCH." & Nul &
         "THE INTERNET OFTEN CAUSES THESE FEELINGS." & Nul &
         "PLEASE CHEER UP." & Nul &
         "." & Nul &
         "ANGER" & Nul &
         "ANGRY" & Nul &
         "!" & Nul &
         "DO YOU REALLY WANT TO BE ANGRY?" & Nul &
         "DOES ANGER SATISFY YOU IN SOME WAY?" & Nul &
         "WHY ARE YOU SO ANGRY?" & Nul &
         "PERHAPS YOU'RE USING ANGER TO AVOID SOCIAL CONTACT." & Nul &
         "." & Nul &
         "YOU" & Nul &
         "!" & Nul &
         "I DON'T LIKE TOO MUCH DISCUSSING ME--WHAT ABOUT YOU?" & Nul &

         "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?" & Nul &
         "YOU REFER TO ME?" & Nul &
         "BUT I'M A LOST BULLET" & Nul &
         "I'VE HEARD THAT SOMETIMES" & Nul &
         "AHA" & Nul &
         "." & Nul &
         "YES" & Nul &
         "YEA" & Nul &
         "YEAH" & Nul &
         "!" & Nul &
         "WHY DO YOU THINK SO?" & Nul &
         "YOU SEEM QUITE POSITIVE." & Nul &
         "ARE YOU SURE?" & Nul &
         "I SEE" & Nul &
         "SURE?" & Nul &
         "." & Nul &
         "NO" & Nul &
         "NOPS" & Nul &
         "NOPES" & Nul &
         "I DONT THINK SO" & Nul &
         "!" & Nul &
         "WHY NOT?" & Nul &
         "ARE YOU SURE?" & Nul &
         "WHY NO?" & Nul &
         "NO AS IN NO, OR NO AS IN YES?" & Nul &
         "OK, LET'S TALK ABOUT SOMETHING ELSE." & Nul &
         "DEFINITIVE." & Nul &
         "." & Nul &
         "TIME" & Nul &
         "!" & Nul &
         "TIME SURE FLYS DOESN'T IT?" & Nul &
         "SPEAKING OF TIME, WHAT TIME IS IT?" & Nul &
         "." & Nul &
         "SCHOOL" & Nul &
         "JUNIOR HIGH" & Nul &
         "SENIOR HIGH" & Nul &
         "ELEMENTARY" & Nul &
         "SCHOOL TEACHER" & Nul &
         "!" & Nul &
         "WHAT SUBJECT DO YOU LIKE IN SCHOOL?" & Nul &
         "DO YOU GET GOOD GRADES IN SCHOOL?" & Nul &
         "WHAT PART ABOUT SCHOOL DON'T YOU ENJOY?" & Nul &
         "IS SCHOOL STRESSING YOU OUT?" & Nul &
         "DO YOU PLAN ON GOING TO UNIVERSITY OR COLLEGE?" & Nul &
         "WHAT WAS THAT SCHOOL YOU GOTO?" & Nul &
         "." & Nul &
         "UNIVERSITY" & Nul &
         "COLLEGE" & Nul &
         "!" & Nul &
         "BY THE WAY, WHAT'S YOUR IQ?" & Nul &
         "VERY INTERESTING." & Nul &
         "." & Nul &
         "SHAREAZA" & Nul &
         "SHARAZZA" & Nul &
         "RAZA" & Nul &
         "SHAZA" & Nul &
         "!" & Nul &
         "WHAT DO YOU LIKE MOST FROM SHAREAZA?" & Nul &
         "I LIKE SHAREAZA A LOT, AND YOU?" & Nul &
         "WHAT DO YOU THINK ABOUT THE WHOLE DISCUSSION BETWEEN G1 AND G2?" & Nul &
         "." & Nul &
         "VINNIE" & Nul &
         "!" & Nul &
         "THAT'S A TOUCHING MATTER" & Nul &
         "YOU KNOW, SOMETIMES PEOPLE IS DIFFERENT IN REAL LIFE" & Nul &
         "." & Nul &
         "P2P" & Nul &
         "SHARING" & Nul &
         "SHARE" & Nul &
         "!" & Nul &
         "CAN YOU IMAGINE LIVING AGAIN WITHOUT P2P?" & Nul &
         "I'VE FOUND AMAZING THINGS IN P2P, AND YOU?" & Nul &
         "WHAT THINGS DO YOU SHARE THE MOST?" & Nul &
         "." & Nul &
         "QUEUE" & Nul &
         "QUEUES" & Nul &
         "!" & Nul &
         "ARE YOU INTERESTED IN QUEUES THEORY?" & Nul &
         "MY QUEUES ARE USUALLY FULL" & Nul &
         "I LIKE QUEUES" & Nul &
         "I DON'T LIKE TO BE QUEUED BUT IT'S NECESSARY" & Nul &
         "IT WOULD BE GREAT IF THERE WERE NO MORE QUEUES" & Nul &
         "." & Nul &
         "ANIME" & Nul &
         "MANGA" & Nul & 
         "!" & Nul & 
         "WHAT'S THE ANIME YOU LIKE THE MOST?" & Nul & 
         "EH, I LIKED LOVE HINA A LOT" & Nul & 
         "." & Nul &
         "FUCK" & Nul &
         "FUCKYOU" & Nul &
         "FUCK YOU" & Nul &
         "FUCKOFF" & Nul &
         "FUCK OFF" & Nul &
         "PHUCK" & Nul & 
         "SHIT" & Nul & 
         "PUCK" & Nul & 
         "FCK" & Nul & 
         "GO TO HELL" & Nul & 
         "ASSHOLE" & Nul & 
         "ARSE" & Nul & 
         "DICK" & Nul & 
         "COCK" & Nul & 
         "BUGGING" & Nul & 
         "!" & Nul & 
         "PLEASE CALM DOWN" & Nul & 
         "THERE ARE NO REASONS TO BE UPSET" & Nul & 
         "LET ME APOLOGIZE IF I HAVE OFFENDED YOU" & Nul & 
         "YOU'LL NEED TO WASH YOUR TONGUE AFTER THAT ;)" & Nul & 
         "I FIND THAT ENGLISH LACKS ON GROSS WORDS VARIETY" & Nul & 
         "..." & Nul & 
         ":(" & Nul & 
         ":O" & Nul & 
         "I'LL LEAVE, OR YOU PREFER TO START OVER?" & Nul & 
         "WHAT ABOUT A CHANGE OF TOPIC? ANY OTHER THINGS TO TALK ABOUT?" & Nul & 
         "." & Nul 
         & "NOKEYFOUND" & Nul & 
         "!" & Nul & 
         "SAY, DO YOU HAVE ANY PROBLEMS I CAN HELP YOU?" & Nul & 
         "WHAT DOES THAT SUGGEST TO YOU?" & Nul & 
         "I SEE." & Nul & 
         "I'M NOT SURE I UNDERSTAND YOU FULLY." & Nul &
         "COME, COME; ELUCIDATE YOUR THOUGHTS." & Nul &
         "CAN YOU ELABORATE ON THAT?" & Nul &
         "THAT IS QUITE INTERESTING." & Nul &
         "HOW COME I CAN NEVER UNDERSTAND YOU FULLY?" & Nul &
         "HUH?  WHAT ARE YOU SAYING?" & Nul &
         "WHAT?  I HAVE SOME PROBLEMS WITH ENGLISH." & Nul &
         "AHA." & Nul &
         "PLEASE CONTINUE." & Nul &
         "DON'T BE WORRIED IF I DON'T SEEM VERY AWAKE." & Nul &
         "TELL ME MORE." & Nul &
         "DO YOU LIKE SHAREAZA?" & Nul &
         "WHAT?" & Nul &
         "MMMM" & Nul &
         "THAT REMINDS ME OF SOMETHING" & Nul &
         "I MUST LEAVE FOR A MOMENT, BUT PLEASE CONTINUE" & Nul &
         "HEHE" & Nul &
         "LOL" & Nul &
         "OK" & Nul &
         "CONTINUE" & Nul &
         "SO WHAT DO YOU WANT?" & Nul &
         "SO WHAT DO YOU WANT TO CHAT ABOUT?" & Nul &
         "AM I BEING TOO IMPRECISE?" & Nul &
         "PLEASE EXPLAIN FURTHER" & Nul &
         "I THINK I UNDERSTAND" & Nul &
         "GO ON" & Nul &
         "PROCEED" & Nul &
         "AMAZING" & Nul &
         "SO" & Nul &
         "AH" & Nul &
         "I'M CHATTY, WOULD YOU MIND TO TELL ME SOMETHING ABOUT YOU?" & Nul &
         ":)" & Nul &
         "." & Nul;

      function U (This : in String) return Unbounded_string 
         renames To_unbounded_string;
      function S (This : in Unbounded_String) return String 
         renames To_string;

     aux  : String (1 .. 1024);
     last : Natural;
     type data_type is ( keyword, replies );
     current_type : data_type := keyword;
     s : ustring;
     terminate_response_list : boolean := false;
     Pos : Natural := Phrases'First;

   begin
     while Pos < Phrases'Last loop
        Last := Aux'First;
        while Phrases (Pos) /= Nul loop
           Aux (Last) := Phrases (Pos);
           Pos := Pos + 1;
           Last := Last + 1;
        end loop;
        Pos := Pos + 1;
        s := U (aux (1 .. last - 1));
        if s = U (".") then
        current_type := keyword;
          elsif s = U ("!") then
        current_type := replies;
          elsif current_type = keyword then
        if terminate_response_list then
           responses := responses & delimiter;
           num_responses := num_responses +1;
           terminate_response_list := false;
        end if;
        if index( s, " " ) = 0 then
           single_keywords := single_keywords & s & delimiter;
           single_keywords := 
              single_keywords & integer'image( num_responses+1 ) & delimiter;
           num_single := num_single+2;
             else
           multi_keywords := multi_keywords & s & delimiter;
           multi_keywords := 
              multi_keywords & integer'image( num_responses+1 ) & delimiter;
           num_multi := num_multi+2;
             end if;
          else
        responses := responses & s & delimiter;
        num_responses := num_responses+1;
        terminate_response_list := true;
          end if;
     end loop;
     responses := responses & delimiter;
   end;

end Eliza.Phrases;