[foo]

ps char b(0)[int l;char c;l=-1;while(c=b(++l))MC c,1;return l]

endlibrary

foo [
 MC(10,1);int l
 l=ps("Brickyarders Rock, Big Time !!!!!!!!!!!!!!!!")
 ps(" contains ");MC l,14;ps(" characters.")
 MC(10,1)
 ]