#USE "course.lib" PROC main(CHAN BYTE stdin, stdout, stderr) CHAN INT c: INT count: PROC lowercase(CHAN BYTE in, CHAN INT out) BOOL reading: BYTE ch: INT ret: SEQ reading:=TRUE WHILE reading SEQ in ? ch IF ch='q' SEQ ret:=(-1) reading:=FALSE (ch>='a') AND (ch<='z') ret:=1 TRUE ret:=0 out ! ret : PROC counter(CHAN INT in, INT count) INT number: BOOL reading: SEQ reading:=TRUE WHILE reading SEQ in ? number IF number=(-1) reading:=FALSE number=1 count:=count+1 TRUE SKIP : SEQ PAR lowercase(stdin, c) counter(c, count) out.string("Number of lowercase characters: ", 0, stdout) out.int(count, 0, stdout) out.string("*n", 0, stdout) :