
system("gawk --field-separator '|' -f acped.awk pedigree.txt > PED0A.d");

system("wc -l PED0A.d");

system("wc -c PED0A.d");

exit;

