/* size.tc - lrb - 7/28/16 - 9/2/17 */

size char fn(0) [
 char fcon(5000);int fl
 pl fn;ps " is";pn (fl=readfile(fn,fcon,fcon+4999,1));ps " bytes."
 fcon(fl)=0
 char yn;pl "";pl "display file? y/n ";yn=getchar
 if ((yn=='y')+(yn=='Y')) pl fcon
 ]

foo [] /* seem to need a trailing function! */