b'\n_START_ARTICLE_\nBCPL\n_START_SECTION_\nEsimerkki\n_START_PARAGRAPH_\nKertomien tulostus:_NEWLINE_GET "libhdr"_NEWLINE__NEWLINE_LET start() = VALOF_NEWLINE_$( FOR i = 1 TO 5 DO writef("Kertoma(%n) = %i4*n", i, kert(i))_NEWLINE_  RESULTIS 0_NEWLINE_$)_NEWLINE__NEWLINE_AND kert(n) = n=0 -> 1, n*kert(n-1)'