generic
Num_Tasks: Positive;
package Hofstadter is
type Positive_Array is array(Positive range <>) of Positive;
-- Implement either or both of the following functions:
function Compute_Q(N: Positive) return Positive;
function Compute_Q_Sequence(N: Positive) return Positive_Array;
end Hofstadter;