Я не утверждаю что эта программа оптимальна, оптимизируйте как вам будет угодно, я лишь идею подкинул.