سجل Question { prompt: نص, answer: ص64 }
دالة ابدأ_الرئيسية() -> ص64 {
    دع questions: قائمة<Question> = [
        Question { prompt: "2 + 3?", answer: 5 },
        Question { prompt: "9 - 4?", answer: 5 },
        Question { prompt: "3 * 4?", answer: 12 },
        Question { prompt: "12 / 3?", answer: 4 },
        Question { prompt: "7 + 8?", answer: 15 }
    ].
    متغير pending: منطقي = صواب.
    طالما (pending) {
        اطبع(questions[0]::prompt + " ").
        دع line: نص = اقرأ_سطر().
        إذا (line يطابق "q") {
            اطبع("Stopped early. Correct: 0; answered: 0; total: " + نسق_ص64(طول(questions)) + ".\n").
            أرجع 0.
        }
        دع parsed: نتيجة<ص64> = حلل_ص64(line).
        إذا (parsed::نجاح) {
            اطبع("Parsed: " + نسق_ص64(parsed::قيمة) + "\n").
            pending = خطأ.
        } وإلا {
            اطبع("Retry: " + parsed::الخطأ::الرمز + "\n").
        }
    }
    أرجع 0.
}