База данных надо вывести на экран всё содержимое

domains
name, hb = string
file=f
 
database
bd(name,hb)
 
predicates
name_hb(name, hb)
hb_name(name, hb)
m(char)
menu
start
 
 
clauses
name_hb(Name,Hb):-
                bd(Name,Hb),!.
name_hb(_,"No info about date").
 
hb_name(Name,Hb):-
                bd(Name,Hb).
hb_name("No info about name",_).
 
 
menu:-
      clearwindow,
      write("1 - get day for name"),nl,
      write("2 - get names for date"),nl,
      write("3 - add new name"),nl,
      write("4 - edit name"),nl,
      write("5 - delete name"),nl,
      write("0 - exit"),nl,
      readchar(C),
  m(C).
    
       
m('1'):-
       write("insert name"), nl,
       readln(Name),
       name_hb(Name,Hb),
       write("Birthday: ", Hb),
       readchar(_),
       menu.
       
       
 
 
 
m('2'):-
        write("Insert birthday"),nl,
        readln(Hb),
        hb_name(Name, Hb),
        write("Name: ", Name),
        readchar(_),
        menu.
 
   
   
m('3'):-
        write("Insert name"),nl,
        readln(Name),
        write("Insert birthay"),nl,
        readln(Hb),
        assert(bd(Name,Hb)),
        menu.
        
      
m('4'):-
       clearwindow,
       write("insert name"),nl,
       readln(Name),
       write("Insert new birthday"),nl,
       readln(Hb),
       retract(bd(Name,_)),
       assert(bd(Name,Hb)),
       menu.
       
       
m('5'):-
       write("Insert name wich will delete"),nl,
       readln(Name),
       retract(bd(Name,_)),
       menu.
       
m('6'):-
       write(Name,Hb).       
       
m('0'):-
      save("bd.ddb "),
      retractall(_).
      
       
m(_):- 
     menu.
     
     
start:-
      existfile("bd.ddb"),!,
      consult("bd.ddb "),
      menu.
      
start:-
      openwrite(f,"bd.ddb"),
      closefile(f),
      menu.
      
goal
start

m('6'):-
       db(Name,Hb),
       write(Name,Hb),fail. 
m('6').