Here is an automaton to recognize Ada identifiers.
M = (Q,
,
,
q0, F), where
(q0, letter) = q1
(q1, letter) = q1
(q0, digit) = q3
(q1, digit) = q1
(q0, underline) = q3
(q1, underline) = q2
(q2, letter) = q1
(q3, letter) = q3
(q2, digit) = q1
(q3, digit) = q3
(q2, underline) = q3
(q3, underline) = q3