define set1 (*.O?* and nucleic)
echo set1 - O v dezocsiriboze
define set2 (*.C?* and nucleic)
echo set2 - C v dezocsiriboze
define set3 (*.O?P and nucleic) 
echo set3 - O v ostatke fosfornoy kisloti  
define set4 (*.P and nucleic)
echo set4 - fosfor
define set5 ((g?.o6, t?.04, G?.N7, A?.N7, a?.N1, G?.N1, c?.n4, *.N6) and nucleic)
echo set5 - polarnie so storoni bolshoy borozdki
define set6 (*.c5, *.c6, *.c5m, c?.o2, t?.02, a?.N3, G?.N3, (*.c8 and purine), (*.c4 and pyrimidine))
echo set6 nepolarnie so storoni bolshoy borozdki 
define set7 ((c?.o2, t?.02, a?.N3, G?.N3, G?.N2, t?.n3, c?.n3) and nucleic)                                                                             
echo set7 - polarnie so storoni maloy borozdki                                                                                                                                                           
define set8 (*.c2, *.c3, (*.c4 and purine)) and nucleic    
echo set8 nepolarnie so storoni maloy borozdki
define set9 ((*.O??, *.N??)  and protein)
echo set9 - polarnie v belke      
define set10 ((*.C??, *.S??) and protein)
echo set10 - nepolarnie v belke 
pause

                                                                    
define rez1 (within (3.5, set1) and set9)
echo rez1 - polarnie kontakti s kislorodom dezoksiribozi
define rez2 (within (4.5, set2) and set10)                                                                                                                           
echo rez2 - nepolarnie kontakti s dezoksiribozoi
define rez3 (within (3.5, set3) and set9)                                                                                                                           
echo rez3 - polarnie kontakti s kislorodom ostatka fosfornoi kisloti                                                                                                                                                    
define rez4 (within (4.5, set4) and set10)           
echo rez4 -  nepolarnie kontakti s fosforom
define rez5 (within (3.5, set5) and set9)           
echo rez5 -  polarnie kontakti s bolshoi borozdkoi
define rez6 (within (4.5, set6) and set10)
echo rez6 - nepolarnie kontakti s uglerodom bolshoi borozdki 
define rez7 (within (3.5, set7) and set9)                  
echo  rez7 - polarnie kontakti s maloi borozdkoi    
define rez8 (within (4.5, set8) and set10)                
echo rez8 - nepolarnie kontakti s uglerodom maloi borozdki














      