;;; Some data from 1998 Europeans (courtesy of the WIGE web page) (setq euros-men-sp '( ("Sergeis TELENKOV" 27 26 25 28 27 27 25 26 26) ("Evgeni PLUSHENKO" 2 4 3 3 3 2 3 3 2) ("Ivan DINEV" 11 11 13 11 13 15 15 11 13) ("Philippe CANDELORO" 9 7 7 6 8 8 5 10 8) ("Robert GRZEGORCZYK" 15 13 18 13 17 20 14 14 15) ("Matthew van den BROECK" 29 27 30 30 30 30 27 30 30) ("Sven MEYER" 14 22 15 18 22 19 16 17 16) ("Patrick SCHMIT" 23 23 22 25 25 23 24 22 20) ("Markus LEMINEN" 17 24 20 19 24 21 20 20 23) ("Gilberto VIADANA" 13 12 14 16 12 12 11 12 11) ("Michael SHMERKIN" 18 10 10 10 11 9 10 9 10) ("Vakhtang MURVANIDZE" 22 21 26 27 28 26 29 24 22) ("Radek HORAK" 25 27 24 24 26 22 23 25 24) ("Michael TYLLESEN" 7 8 8 9 6 6 7 7 9) ("Hristo TURLAKOV" 24 25 27 20 20 24 26 27 27) ("Daniel PEINADO" 28 30 29 26 29 28 30 29 29) ("Dmitry DMITRENKO" 6 9 9 4 5 5 4 8 4) ("Andrejs VLASCENKO" 5 3 4 5 4 4 6 5 5) ("Viacheslav ZAGORODNIUK" 4 6 5 8 7 7 9 6 7) ("Jan CEJVAN" 29 29 28 29 23 29 28 28 28) ("Alexander ABT" 3 2 2 2 2 3 2 2 3) ("Cornel GHEORGHE" 10 14 12 17 14 14 18 15 12) ("Steven COUSINS" 8 5 6 7 10 10 8 4 6) ("Thierry CEREZ" 20 17 17 12 9 11 12 15 17) ("Robert KAZIMIR" 26 20 23 22 21 25 22 23 21) ("Patrick MEIER" 16 15 11 14 15 16 13 18 14) ("Szabolcs VIDRAI" 12 16 19 21 19 17 19 19 18) ("Johnny JENSEN" 19 18 16 15 16 13 17 13 19) ("Margus HERNITS" 21 19 21 23 18 18 21 21 25) ("Alexei YAGUDIN" 1 1 1 1 1 1 1 1 1) )) (setq euros-men-fs '( ("Robert KAZIMIR" 22 22 20 23 22 23 21 21 22) ("Markus LEMINEN" 21 21 23 22 24 20 22 23 23) ("Margus HERNITS" 17 16 17 17 18 18 16 15 17) ("Radek HORAK" 23 23 22 20 23 22 19 24 21) ("Szabolcs VIDRAI" 18 17 15 16 20 16 18 17 16) ("Patrick SCHMIT" 15 19 24 24 16 19 20 18 19) ("Thierry CEREZ" 13 13 10 10 11 11 14 13 13) ("Patrick MEIER" 10 10 12 13 12 9 11 9 12) ("Sven MEYER" 19 18 19 18 21 17 17 20 15) ("Cornel GHEORGHE" 20 20 21 21 17 21 23 22 20) ("Johnny JENSEN" 24 24 18 19 19 24 24 19 24) ("Robert GRZEGORCZYK" 14 14 16 15 14 15 13 16 18) ("Michael TYLLESEN" 9 9 8 7 7 8 10 10 14) ("Gilberto VIADANA" 12 12 13 14 13 12 8 14 11) ("Steven COUSINS" 6 5 6 6 8 4 5 7 4) ("Philippe CANDELORO" 4 3 3 3 3 2 3 3 3) ("Ivan DINEV" 11 11 11 11 10 13 11 11 10) ("Michael SHMERKIN" 16 15 14 12 14 14 15 12 9) ("Dmitry DMITRENKO" 8 8 9 9 9 10 9 6 8) ("Alexei YAGUDIN" 1 1 2 2 1 1 1 1 1) ("Evgeni PLUSHENKO" 2 2 1 1 2 3 2 2 2) ("Viacheslav ZAGORODNIUK" 7 6 5 8 6 5 4 4 7) ("Andrejs VLASCENKO" 5 4 7 5 5 6 7 5 6) ("Alexander ABT" 3 7 4 4 4 7 6 8 5) )) (setq euros-pairs-sp '( ("BERANKOVA / DLABOLA" 7 7 7 8 8 7 8 8 7) ("FILONENKO / MARCHENKO" 5 5 5 6 6 5 6 5 5) ("NEKRASSOVA / MINTALS" 12 14 14 14 12 14 14 14 13) ("RODIONOVA / ANICHENKO" 9 8 9 11 9 8 7 11 9) ("KAZAKOVA / DMITRIEV" 3 3 3 3 3 3 4 3 3) ("ASANAKI / McKEEVER" 10 12 11 10 11 11 12 10 10) ("ABITBOL / BERNADIS" 2 2 2 2 2 2 2 2 2) ("ZAGORSKA / SIUDEK" 4 4 4 5 5 4 3 6 4) ("BESTANDIGOVA / BESTANDIG" 13 11 12 12 13 12 9 13 12) ("BEREZHNAYA / SIKHARULIDZE" 1 1 1 1 1 1 1 1 1) ("OBERTAS / PALAMARCHUK" 8 9 8 7 7 9 10 7 8) ("KRASILTSEVA / CHESTNIKH" 14 13 13 13 14 13 13 12 14) ("SCHWARZ / MULLER" 6 6 6 4 4 6 5 4 6) ("POLULIASCHENKO / SEABROOK" 11 10 10 9 10 10 11 9 11) )) (setq euros-pairs-fs '( ("KRASILTSEVA / CHESTNIKH" 14 14 14 14 14 14 14 14 14) ("NEKRASSOVA / MINTALS" 13 13 13 13 13 13 13 13 13) ("BESTANDIGOVA / BESTANDIG" 12 12 12 12 11 12 12 12 12) ("ASANAKI / McKEEVER" 11 11 11 11 12 11 11 10 11) ("RODIONOVA / ANICHENKO" 8 8 9 9 10 9 9 9 7) ("POLULIASCHENKO / SEABROOK" 10 10 10 10 9 10 10 11 10) ("OBERTAS / PALAMARCHUK" 9 9 7 7 7 7 7 7 8) ("BERANKOVA / DLABOLA" 7 7 8 8 8 8 8 8 9) ("SCHWARZ / MULLER" 5 5 5 4 5 5 4 5 5) ("FILONENKO / MARCHENKO" 6 6 6 6 6 6 6 6 6) ("BEREZHNAYA / SIKHARULIDZE" 1 1 1 1 1 1 1 1 1) ("ABITBOL / BERNADIS" 3 3 3 3 3 3 2 3 3) ("ZAGORSKA / SIUDEK" 4 4 4 5 4 4 5 4 4) ("KAZAKOVA / DMITRIEV" 2 2 2 2 2 2 3 2 2) )) (setq euros-dance-cd1 '( ("DELOBEL / SCHOENFELDER" 16 15 16 17 15 16 15) ("HUGENTOBLER / HUGENTOBLER" 23 23 22 22 21 21 23) ("SMETANENKO / GEZALIAN" 18 17 19 16 18 17 17) ("WINKLER / LOHSE" 10 11 11 10 13 11 9) ("FUHRING / ELLINGER" 20 21 21 18 20 20 21) ("ANISSINA / PEIZERAT" 3 3 3 3 3 3 3) ("NOWAK / KOLASINSKI" 8 10 12 12 10 12 12) ("DENKOVA / STAVIYSKI" 15 16 15 14 14 14 16) ("GRISHUK / PLATOV" 1 1 1 1 1 1 1) ("NAVKA / MOROZOV" 11 9 9 9 8 10 10) ("KRYLOVA / OVSYANNIKOV" 2 2 2 2 2 2 2) ("BARANY / ROSNIK" 22 22 23 23 22 23 22) ("CHAIT / SAKHNOVSKY" 14 14 13 13 16 15 14) ("ROMANOVA / YAROSHENKO" 9 8 8 8 6 7 6) ("DROBIAZKO / VANAGAS" 7 7 7 7 7 8 7) ("MRAZOVA / SIMECEK" 12 13 10 11 12 9 13) ("GERENCSER / CAMERLENGO" 13 12 14 15 11 13 11) ("FUSAR-POLI / MARGAGLIO" 5 5 5 5 5 4 4) ("MERZOVA / MORBACHER" 17 18 18 19 17 19 20) ("CLEMENTS / SHORTLAND" 19 19 17 21 19 18 18) ("MONIOTTE / LAVANCHY" 6 6 6 6 8 6 8) ("KALESNIK / TERENTJEV" 21 20 20 20 23 22 19) ("LOBACHEVA / AVERBUKH" 4 4 4 4 4 5 5) )) (setq euros-dance-cd2 '( ("BARANY / ROSNIK" 22 21 22 23 22 20 22) ("CHAIT / SAKHNOVSKY" 14 14 14 14 14 13 15) ("ROMANOVA / YAROSHENKO" 7 8 8 7 9 7 8) ("DROBIAZKO / VANAGAS" 8 6 7 6 7 8 7) ("MRAZOVA / SIMECEK" 12 13 13 11 13 14 9) ("GERENCSER / CAMERLENGO" 13 10 11 13 12 12 14) ("FUSAR-POLI / MARGAGLIO" 5 5 4 8 5 5 5) ("MERZOVA / MORBACHER" 19 17 18 17 19 18 18) ("CLEMENTS / SHORTLAND" 17 23 20 21 20 21 20) ("MONIOTTE / LAVANCHY" 4 7 6 5 8 6 6) ("KALESNIK / TERENTJEV" 23 20 23 22 21 22 23) ("LOBACHEVA / AVERBUKH" 6 4 5 4 4 4 4) ("DELOBEL / SCHOENFELDER" 16 15 16 16 17 15 13) ("HUGENTOBLER / HUGENTOBLER" 21 22 21 20 23 23 21) ("SMETANENKO / GEZALIAN" 18 18 17 15 15 17 16) ("WINKLER / LOHSE" 10 11 12 10 11 10 11) ("FUHRING / ELLINGER" 20 19 19 19 18 19 19) ("ANISSINA / PEIZERAT" 3 3 3 3 3 2 2) ("NOWAK / KOLASINSKI" 9 12 9 12 10 9 10) ("DENKOVA / STAVIYSKI" 14 16 15 18 16 16 17) ("GRISHUK / PLATOV" 1 1 1 1 1 1 1) ("NAVKA / MOROZOV" 11 9 10 9 6 11 12) ("KRYLOVA / OVSYANNIKOV" 2 2 2 2 2 3 3) )) (setq euros-dance-od '( ("GERENCSER / CAMERLENGO" 13 13 13 12 13 13 12 12 13) ("SMETANENKO / GEZALIAN" 21 23 19 17 20 20 19 22 22) ("FUHRING / ELLINGER" 19 20 17 18 22 19 21 19 18) ("DELOBEL / SCHOENFELDER" 15 16 16 15 16 16 15 16 16) ("KALESNIK / TERENTJEV" 22 22 21 23 23 22 23 23 21) ("MRAZOVA / SIMECEK" 14 14 14 14 14 14 13 14 14) ("CLEMENTS / SHORTLAND" 18 18 23 21 18 18 20 18 19) ("MERZOVA / MORBACHER" 16 15 18 19 15 17 17 17 17) ("BARANY / ROSNIK" 20 19 20 20 21 21 22 20 20) ("CHAIT / SAKHNOVSKY" 12 12 9 13 12 12 14 13 12) ("DENKOVA / STAVIYSKI" 17 17 15 16 17 15 16 15 15) ("HUGENTOBLER / HUGENTOBLER" 23 21 22 22 19 23 18 21 23) ("WINKLER / LOHSE" 8 7 10 9 9 10 10 10 10) ("ANISSINA / PEIZERAT" 3 3 4 2 3 3 3 3 3) ("ROMANOVA / YAROSHENKO" 9 9 11 11 8 8 8 8 8) ("GRISHUK / PLATOV" 1 2 2 3 2 1 2 2 2) ("MONIOTTE / LAVANCHY" 6 8 6 7 7 7 6 7 7) ("DROBIAZKO / VANAGAS" 7 6 7 6 6 6 7 6 6) ("NAVKA / MOROZOV" 10 10 12 8 10 11 9 11 11) ("KRYLOVA / OVSYANNIKOV" 2 1 1 1 1 2 1 1 1) ("LOBACHEVA / AVERBUKH" 5 4 5 4 4 4 4 5 4) ("NOWAK / KOLASINSKI" 11 11 8 10 11 9 11 9 9) ("FUSAR-POLI / MARGAGLIO" 4 5 3 5 5 5 5 4 5) )) (setq euros-dance-fd '( ("KALESNIK / TERENTJEV" 23 23 22 23 23 22 23 23 23) ("HUGENTOBLER / HUGENTOBLER" 21 22 23 22 20 23 20 22 22) ("SMETANENKO / GEZALIAN" 22 21 20 21 22 21 19 20 21) ("BARANY / ROSNIK" 20 20 19 19 21 20 22 21 20) ("MERZOVA / MORBACHER" 16 18 18 20 17 19 17 17 17) ("CLEMENTS / SHORTLAND" 18 17 21 18 16 17 18 19 19) ("FUHRING / ELLINGER" 19 19 17 17 18 18 21 18 18) ("DENKOVA / STAVIYSKI" 17 15 16 16 19 15 16 15 16) ("NAVKA / MOROZOV" 10 12 9 10 11 11 10 10 9) ("CHAIT / SAKHNOVSKY" 12 10 11 9 12 12 13 13 12) ("GERENCSER / CAMERLENGO" 13 13 15 14 13 13 12 12 13) ("MRAZOVA / SIMECEK" 14 16 14 13 14 14 15 14 14) ("DELOBEL / SCHOENFELDER" 15 14 13 15 15 16 14 16 15) ("ROMANOVA / YAROSHENKO" 8 8 12 8 7 8 8 8 8) ("NOWAK / KOLASINSKI" 11 11 8 12 10 9 11 11 11) ("MONIOTTE / LAVANCHY" 7 9 7 7 9 7 6 7 7) ("DROBIAZKO / VANAGAS" 6 6 6 6 6 6 7 6 6) ("WINKLER / LOHSE" 9 7 10 11 8 10 9 9 10) ("FUSAR-POLI / MARGAGLIO" 5 5 4 4 5 5 4 4 5) ("LOBACHEVA / AVERBUKH" 4 4 5 5 4 4 5 5 4) ("GRISHUK / PLATOV" 1 1 1 2 1 1 2 1 1) ("ANISSINA / PEIZERAT" 3 3 3 3 3 3 3 3 3) ("KRYLOVA / OVSYANNIKOV" 2 2 2 1 2 2 1 2 2) )) (setq euros-ladies-sp '( ("Elena LIASHENKO" 8 9 9 5 8 6 7 5 5) ("Jekaterina GOLOVATENKO" 23 24 27 21 26 24 23 21 24) ("Tanja SZEWCZENKO" 1 1 1 3 1 1 2 3 1) ("Julia SEBESTYEN" 26 23 22 25 22 22 20 25 22) ("Marion KRIJGSMAN" 19 20 21 24 20 25 26 20 25) ("Katerina BLOHONOVA" 22 28 24 27 28 23 22 24 20) ("Zuzana PAUROVA" 12 14 12 14 17 12 12 13 10) ("Yulia LAVRENCHUK" 9 8 7 6 7 7 5 6 7) ("Anina FIVIAN" 24 22 26 26 27 21 25 23 23) ("Valeria TRIFANCOVA" 16 21 18 20 21 18 19 15 21) ("Vanessa GUSMEROLI" 4 6 6 9 6 9 11 9 8) ("Irina SLUTSKAYA" 2 3 3 1 4 3 4 2 3) ("Noemi BEDO" 29 29 28 22 30 29 28 29 30) ("Tony Sabrina BOMBARDIERI" 15 16 15 16 14 19 15 17 15) ("Yulia VOROBIEVA" 3 7 10 10 12 10 8 8 11) ("Sofia PENKOVA" 21 19 20 18 19 16 18 14 19) ("Ivana JAKUPCEVIC" 20 18 14 15 16 20 21 16 14) ("Alisa DREI" 10 11 8 8 11 7 9 10 9) ("Salome CHIGOGIDZE" 28 25 23 30 24 28 27 28 27) ("Helena GRUNDBERG" 17 15 13 17 18 17 17 22 16) ("Mojca KOPAC" 14 13 16 19 13 15 16 18 18) ("Sabina WOJTALA" 18 17 17 13 15 14 14 19 17) ("Julia SOLDATOVA" 11 12 11 11 10 11 13 12 12) ("Kaja HANEVOLD" 25 27 25 23 25 27 24 26 26) ("Surya BONALY" 5 4 2 2 5 2 1 1 4) ("Krisztina CZAKO" 6 2 4 4 3 4 3 4 2) ("Maria BUTYRSKAYA" 7 5 5 7 2 5 6 7 6) ("Julia LAUTOWA" 13 10 19 12 9 13 10 11 13) ("Marta SENRA" 27 26 30 29 23 26 29 27 28) ("Ellen MAREELS" 30 30 29 28 29 30 30 30 29) )) (setq euros-ladies-fs '( ("Marion KRIJGSMAN" 22 21 22 22 24 24 24 23 23) ("Valeria TRIFANCOVA" 20 23 24 24 23 23 23 24 24) ("Julia SEBESTYEN" 15 14 16 16 16 11 14 15 14) ("Sofia PENKOVA" 19 22 17 20 17 20 21 21 18) ("Jekaterina GOLOVATENKO" 18 18 20 19 21 19 18 17 21) ("Katerina BLOHONOVA" 24 24 23 23 20 22 22 22 22) ("Sabina WOJTALA" 16 17 19 18 14 16 15 16 15) ("Helena GRUNDBERG" 21 20 15 17 19 18 17 18 19) ("Tony Sabrina BOMBARDIERI" 14 16 18 15 15 17 19 19 17) ("Mojca KOPAC" 13 13 10 13 13 8 13 13 13) ("Ivana JAKUPCEVIC" 23 19 21 21 22 21 20 20 20) ("Zuzana PAUROVA" 17 15 14 14 18 15 16 14 16) ("Vanessa GUSMEROLI" 10 10 12 12 10 7 10 7 8) ("Yulia VOROBIEVA" 11 7 7 11 8 9 9 9 6) ("Julia SOLDATOVA" 6 5 6 4 6 3 5 3 3) ("Alisa DREI" 8 9 8 9 7 10 12 9 9) ("Elena LIASHENKO" 4 4 4 5 4 5 4 5 5) ("Julia LAUTOWA" 7 8 13 8 9 6 8 8 10) ("Yulia LAVRENCHUK" 8 11 11 10 12 13 11 12 12) ("Irina SLUTSKAYA" 3 3 3 6 2 2 2 2 2) ("Tanja SZEWCZENKO" 2 2 2 2 3 4 3 4 4) ("Krisztina CZAKO" 12 12 5 3 11 12 7 6 7) ("Maria BUTYRSKAYA" 1 1 1 1 1 1 1 1 1) ("Surya BONALY" 5 6 9 7 5 14 6 11 11) )) (defun obo-euros () (pop-to-buffer "OBO-Results") (end-of-buffer) (insert "\n\n1998 Europeans men's short program\n\n") (obo-simulation euros-men-sp) (insert "\n\n1998 Europeans men's free skate\n\n") (obo-simulation euros-men-fs) (insert "\n\n1998 Europeans pairs short program\n\n") (obo-simulation euros-pairs-sp) (insert "\n\n1998 Europeans pairs free skate\n\n") (obo-simulation euros-pairs-fs) (insert "\n\n1998 Europeans compulsory dance 1\n\n") (obo-simulation euros-dance-cd1) (insert "\n\n1998 Europeans compulsory dance 2\n\n") (obo-simulation euros-dance-cd2) (insert "\n\n1998 Europeans original dance\n\n") (obo-simulation euros-dance-od) (insert "\n\n1998 Europeans free dance\n\n") (obo-simulation euros-dance-fd) (insert "\n\n1998 Europeans ladies short program\n\n") (obo-simulation euros-ladies-sp) (insert "\n\n1998 Europeans ladies free skate\n\n") (obo-simulation euros-ladies-fs) ) (defun score-euros () (pop-to-buffer "Score-Results") (end-of-buffer) (insert "\n\n1998 Europeans men's short program\n\n") (score-simulation euros-men-sp) (insert "\n\n1998 Europeans men's free skate\n\n") (score-simulation euros-men-fs) (insert "\n\n1998 Europeans pairs short program\n\n") (score-simulation euros-pairs-sp) (insert "\n\n1998 Europeans pairs free skate\n\n") (score-simulation euros-pairs-fs) (insert "\n\n1998 Europeans compulsory dance 1\n\n") (score-simulation euros-dance-cd1) (insert "\n\n1998 Europeans compulsory dance 2\n\n") (score-simulation euros-dance-cd2) (insert "\n\n1998 Europeans original dance\n\n") (score-simulation euros-dance-od) (insert "\n\n1998 Europeans free dance\n\n") (score-simulation euros-dance-fd) (insert "\n\n1998 Europeans ladies short program\n\n") (score-simulation euros-ladies-sp) (insert "\n\n1998 Europeans ladies free skate\n\n") (score-simulation euros-ladies-fs) )