{ %OPT=-O2 }
{ this benchmark can be used also as a test case }
{$I ../bench/bcase.pp}