some ideas for forth task
infinite loop