let fs = format (lit "Napis " $$ str $$ lit " oraz lista list liczb "
  $$ lis (lis int) $$ eol)