(
    ; we don't have strings yet 👌
    (ld @stdout 'P') (ld @stdout 'r') (ld @stdout 'e') (ld @stdout 's') (ld @stdout 's') (ld @stdout ' ')
    (ld @stdout 'q') (ld @stdout ' ')
    (ld @stdout 't') (ld @stdout 'o') (ld @stdout ' ')
    (ld @stdout 'q') (ld @stdout 'u') (ld @stdout 'i') (ld @stdout 't')
    (ld @stdout '…') (ld @stdout ' ')

    (:loop)
    (ld r0 @stdin)

    ; exit by pressing 'q'
    (cmp r0 'q'
        (=? (ld @stdout '\n')
            (halt)))

    ; uppercase ASCII
    (cmp r0 'a' (<? (j :badchar)))
    (cmp r0 'z' (>? (j :badchar)))
    (sub r0 ' ')
    (ld @stdout r0)
    (j :loop)

    (:badchar)
    (ld @stdout '🐈') ; show a kitty if not ASCII
    (j :loop)
)