/* 
     strawberry parents data 
        2008.1.21   
        file name: itigokin2.txt
      home; www.d1.dion.ne.jp/~tmhk/yosida.htm
*/
/*  --------------------
    For kin3   
     namae1 x namae2 can be obtained   
     This part is not indispensable 
    ----------------------         */
namae1('toyonoka').
namae1('nyoho').
namae1('akihime').
namae2(nyoho).
namae2('totiotome').
/* -------------------------  
   parents data 
     rr('entry', 'female p', 'male p')
     kiti('entry', 'calculated value')

----------------------------*/
rr('himiko','kurume34','hokowase').
rr('kurume34','donner','la/am').
rr('la/am','lassen','america').
kiti(kunowase,0.125).
rr('kunowase','ho/ku','reiko').
rr('ho/ku','hokowase','kurume103').
rr('kurume103','mi/sun','fukuba').
rr('mi/sun','miyazaki','the_sun').
kiti(akihime,0.222656).
rr('akihime','kunowase','nyoho').
kiti(beniyutaka,0.2031).
rr('beniyutaka','toyonoka','haruyoi').
rr('kurume49','toyonoka','nyoho').
kiti(kurume49,0.1914065).
rr('hokowase','tahoe','yakumo').
kiti(reiko,0.125).
rr('reiko','fukuba','harunoka').
kiti(toyonoka,0.0625).
rr('toyonoka','himiko','harunoka').
kiti(nyoho,0.171875).
rr('nyoho','kei210','reiko').
kiti(kei210,0.375).
rr('kei210','donner','kei2').
rr('kei2','harunoka','donner').
kiti('kei2',0.25).
rr('satinoka','toyonoka','aiberi').
kiti(totiotome,0.261718).
rr('totiotome','kurume49','totinomine').
rr('nohime','aiberi','nyoho').
kiti(totinomine,0.183593).
rr('totinomine','kei511','nyoho').
rr('kei511','florida69-266','reiko').
rr('ayanokaori','aiberi','aiberi').
rr('etigohime','5/6-996','nyoho').
rr('5/6-996','beruruju','nyoho').
rr('asukarubi','asukawave','nyoho').
rr('akanekko','aiberi','hokowase').
rr('shunho','toyonoka','tizu').
rr('titanokagayaki','beruruju','pajero').
rr('kitaekubo','59ko-13-37','reiko').
rr('59ko-13-37','morioka19','aiko').
rr('meiho','harunoka','hokowase').
rr('harunoka','kurume103','donner').
rr('haruyoi','hokowase','harunoka').
/*    end of data   */