set id "A1A4P2,A5WUL9,A6NMD0,A6NNB3,B3TJI7,C9JQL5,D2I618,D3ZMZ8,D3ZR91,E1BRS4,F1M3Q1,F1NZH7,F1PY17,F1PY18,F1RGC3,F1RGC4,F1RGC5,F1RGC6,F6PXV4,F6PZ75,F6Q4V1,F6RQE8,F6U7A9,F6U7X8,F6U9S4,F6UGQ4,F6Y944,F6YAW3,F6ZB47,F6ZD87,F6ZD94,F7A3U1,F7BDJ8,F7CNA3,F7D7Q9,F7DDB5,F7DVE7,F7DX09,F7DX76,F7ELP9,F7FH26,F7H5B2,F7H7Z1,F7HFR9,F7I013,F7I045,F7I9J2,F7INS4,F7IQZ8,G1KIR8,G1KTZ2,G1KWI7,G1L516,G1L5D6,G1LUV9,G1LY66,G1PN58,G1PQZ9,G1Q4Y0,G1Q7A2,G1Q7D3,G1QF53,G1R9V0,G1R9V1,G1SAL0,G1TQB6,G3N2K1,G3QGC7,G3QLG9,G3RA73,G3S872,G3T6W5,G3TMS8,G3TSB6,G3TU19,G3UIQ6,G3V7W9,G3W1M5,G3W2E1,G3W3L9,G3W428,G3X9Z2,G5C2G2,G5C3T4,G5C472,G5C473,G5E5L8,G7NWN1,G7PNN0,G7PNV9,H0UW58,H0VIL2,H0W208,H0WB08,H0X158,H0XQL2,H0XSI5,H0XV41,H0XZJ2,H2L8I2,H2MNC5,H2NC91,H2NCE7,H2Q2U5,H2Q2U6,H2R5P4,H2R5P5,H2UX11,H2UX15,H2UX26,H2ZZS0,H3A9E9,H9H7A9,H9H7W4,H9KXX4,I3IWB6,I3JQP1,I3K511,I3K7M6,I3K7M7,I3LK92,I3LUQ7,I3MZN9,I3NH28,J9P3H0,K7FR89,K7FRB8,K7G8P6,L5KPR8,L5M080,L5M176,L5M1B8,L5M2Y2,L5MF77,L8Y4U9,L8Y8R5,L8YBK3,L8YC15,L8YE24,L9J8S0,L9KVV2,L9L6L7,L9L855,L9LAI8,M3W8G2,M3WWH8,M3WXK5,M3WY06,M3X0V2,M3XHR4,M3Y3X6,M3YAQ8,M3YAR5,M3YAS7,M3ZIY9,M7AV80,M7BSB3,M7C2L0,O88728,P13164,P26376,Q01628,Q01629,Q3ZBV6,Q3ZCG5,Q5FVZ3,Q8BR26,Q99J93,Q9CQW9,Q9D103,Q9R175,R4GJX3,S7MGC5,S7MHJ6,S7N1H1,S7N3T0,S7NT80,S7P0K5,S7P6Z1,S9W3M8,S9WE77,S9YA33,U3KAG9,U3KAH5,U3KB40,V8NB49,V8NXB0,W5LY78,W5LYA9,W5PEA7,F1NZH7_CHICK"
set Lid [split $id ,]
puts "Lid [llength $Lid]"
set Luni [IDMapping_web "ACC+ID" ACC $Lid]
set Land [land $Lid $Luni]
puts "Land [llength $Land]"
puts "\n"
for {set i 0} {$i < [llength $Luni]} {incr i 100} {
set f [expr {($i+1)*100-1}]
set out [DbFetchGET uniprot [join [lrange $Luni $i $f] ,]]
set chx [tk_dialog .chx "Warning !""Warning ! You already have sequences in the clipboard ! Cutting the sequences will discard them !""" 0 "Discard""Cancel"]
set chx [tk_dialog .chx "Warning !""Warning ! You already have sequences in the clipboard ! Copying the selected sequences may discard them !""" 0 "Discard""Cancel"]