My PL/I procedures, some implementing standard algorithms