A/B:-writef(A,B).
+N:-"|%r|
"/[' ',N].
m:-readln([A]),name(A,B),length(B,L),N is L+2," %r
/%r\\
"/['_',N,' ',N],+N,(N<8;+N),"| %p |
"/[A],+N,(N<8;+N),"\\\\%r/"/['_',N].