%  #   3.1 affichages élémentaires

ghwrite(Z)   :- ghformat(Z).
ghformat(N)  :- N>99 ,write(N).
ghformat(N)  :- N>9  ,write(' '),write(N).
ghformat(N)  :- Np1 is N+1, Np1>0, write('  '),write(N).

hhformat([A|B])  :- lenGtH([A|B],1), ghformat(A).
hhformat([A|B])  :- lenGtH([A|B],2), write('['),ghformat(A),write(','),hhformat(B),write(']').

hhwrite(c,XY) :- hhformat(XY).
hhwrite(n,XY) :- ghformat(XY).
hhwrite(l,XY) :- ghformat(XY).
hhwrite(s,XY) :- ghformat(XY).
hhwrite(i,XY) :- ghformat(XY).
hhwrite(t,XY) :- ghformat(XY).
hhwrite(k,XY) :- ghformat(XY).

ligneSep(NB)       :- ligneSepr(1,NB).
ligneSepr(DEB,FIN) :- write('-'), DEBp1 is DEB+1, DEB