> Лучше уж полноценный
> интепретатор языка нормульного.

Вообще, мой пример не про программирование в командной строке. Он про сравнение исходника на Си, где goto в каждой 5-й строке, с гипотетической возможностью изобразить аналог на Паскале. Интересно, что даже будучи сбитыми столку сменой темы, в результате Вы сделали подходящий о том исходнике вывод. Полноценным назвать его сложно, но подсчитать в потоке ввода строки и операторы позволяет:

#!refal
go = <count 0 0 0 <Card>>;
count {
  ?total ?goto ?case 0 = <Prout 'Всего строк: ' ?total ', goto: ' ?goto ', case: ' ?case>;
  ?total ?goto ?case . 'goto' … = <count <?total + 1> <?goto + 1> ?case <Card>>;
  ?total ?goto ?case . 'case' … = <count <?total + 1> ?goto <?case + 1> <Card>>;
  ?total ?goto ?case .line = <count <?total + 1> ?goto ?case <Card>>;
}