KisL()R()[), могу дать ещё пример (гораздо проще и по вашей теме, но это опять паскаль)