Одна из моих давних программ (провожу ревизию :) )