primitive recursive ordinal function