// 4/4/20

segment [
 char buf(100);int br
 br=readfile "segment.tc",buf,100
 pft buf,buf+br-2
 ]