FUNC relBrowse(r: Tuple-set): STR-list
RETURNS if r=={}
  then < "No records found" >
  else let (A=atributos(r),
            x=[ a -> 2 .+MAX({strlen(v) | v <- {a} U valores(a,r)}) | a <- A ],
            L= (< a | a <- A >),
            hline = Strcat(< strcat("+",strfill("-",x[a])) | a <- L >^<"+\n">)
           )
       in < hline,
            Strcat(< strcat("|",strcenter(a,x[a])) | a <- L >^<"|\n">),
            hline > ^
          < Strcat(< strcat("|",strcenter(if a in dom(t) then t[a] else "",x[a]))
| a <- L >^<"|\n">) | t <- r > ^
          < hline >;