(setq oly-pairs-sp '( ("SARGEANT & WIRTZ" 12 10 11 11 11 11 12 12 11) ("ABITBOL & BERNADIS" 9 7 8 7 6 6 4 5 7) ("LEFRANCOIS & OSSELAND" 17 19 18 17 18 17 16 17 17) ("RODIONOVA & ANICHENKO" 18 18 19 18 19 19 19 18 18) ("McGRATH & CARR" 15 12 15 16 17 15 14 15 14) ("FILONENKO & MARCHENCO" 14 15 10 12 13 14 15 11 12) ("ARAI & AMANO" 20 20 20 20 20 20 20 20 20) ("WOTZEL & STEUER" 2 2 1 2 2 2 3 2 2) ("ZAGORSKA & SIUDEK" 10 13 12 9 9 10 9 10 9) ("ELTSOVA & BUSHKOV" 7 8 5 5 8 5 5 6 5) ("MENO & SAND" 6 5 3 4 5 7 6 7 6) ("KAZAKOVA & DMITRIEV" 1 1 4 1 4 1 1 1 1) ("SHEN & ZHAO" 5 6 6 10 7 8 8 8 8) ("BEREZHNAYA & SIKHARULIDZE" 4 3 2 3 3 3 2 3 3) ("KHALTURINA & KROUKOV" 11 14 16 13 15 16 18 16 16) ("SCHWARZ & MULLER" 8 9 9 8 10 9 11 9 10) ("INA & DUNGJEN" 3 4 7 6 1 4 7 4 4) ("KRASILTSEVA & CHESTNIKH" 19 17 17 19 16 18 17 19 19) ("SAVARD-GAGNON & BRADET" 13 11 14 14 12 12 13 13 13) ("BERANKOVA & DLABOLA" 16 16 13 15 14 13 10 14 15) )) (setq oly-pairs-fs '( ("RODIONOVA & ANICHENKO" 18 18 18 18 18 18 16 18 17) ("LEFRANCOIS & OSSELAND" 17 17 17 17 17 17 17 17 18) ("ARAI & AMANO" 20 20 20 20 20 20 20 20 20) ("KRASILTSEVA & CHESTNIKH" 19 19 19 19 19 19 19 19 19) ("BERANKOVA & DLABOLA" 15 16 14 15 15 15 15 15 15) ("KHALTURINA & KROUKOV" 13 14 13 14 14 14 14 14 14) ("FILONENKO & MARCHENCO" 10 9 10 9 10 10 9 9 9) ("McGRATH & CARR" 14 15 15 13 13 13 13 13 13) ("SARGEANT & WIRTZ" 12 10 12 12 12 11 12 11 11) ("SCHWARZ & MULLER" 9 8 8 8 8 8 10 8 8) ("SAVARD-GAGNON & BRADET" 16 13 16 16 16 16 18 16 16) ("ZAGORSKA & SIUDEK" 11 12 11 11 11 12 11 12 12) ("SHEN & ZHAO" 6 5 6 7 5 6 6 6 4) ("MENO & SAND" 8 11 9 10 9 9 8 10 10) ("ELTSOVA & BUSHKOV" 5 7 7 5 7 7 3 7 7) ("ABITBOL & BERNADIS" 7 6 5 6 6 5 7 5 5) ("WOTZEL & STEUER" 3 2 1 3 2 3 2 3 3) ("BEREZHNAYA & SIKHARULIDZE" 2 3 2 2 3 2 4 2 2) ("INA & DUNGJEN" 4 4 3 4 4 4 5 4 6) ("KAZAKOVA & DMITRIEV" 1 1 4 1 1 1 1 1 1) )) (setq oly-men-sp '( ("GUO, Zhengxin" 14 13 11 9 11 14 8 7 9) ("SHMERKIN, Michael" 16 11 9 16 15 15 13 12 10) ("VIADANA, Gilberto" 27 25 24 24 23 24 23 26 26) ("HERNITS, Margus" 20 19 21 19 20 19 20 24 20) ("WEISS, Michael" 17 10 10 11 16 11 9 13 11) ("KULIK, Ilia" 3 2 2 1 1 1 2 2 1) ("CANDELORO, Philippe" 6 5 5 6 5 5 5 5 5) ("HONDA, Takeshi" 8 18 19 14 14 18 16 17 18) ("LITVINOV, Yourii" 28 27 28 28 29 28 27 29 28) ("YAGUDIN, Alexei" 2 4 4 4 4 4 4 4 4) ("ELDREDGE, Todd" 1 3 3 3 3 3 1 1 3) ("KAZIMIR, Robert" 23 23 25 26 26 26 22 25 23) ("LANGDON, Jeff" 18 15 13 22 18 16 19 11 15) ("VIDRAI, Szabolcs" 15 17 12 10 12 12 11 10 12) ("TAMURA, Yamato" 12 14 16 12 13 17 12 14 8) ("DMITRENKO, Dmitry" 7 12 14 13 8 8 7 9 16) ("MEIER, Patrick" 21 20 22 23 22 23 24 21 25) ("PASHKEVITCH, Igor" 10 16 8 17 10 10 14 18 13) ("SCHMIT, Patrick" 29 29 29 29 27 27 28 27 29) ("ZAGORODNIUK, Viacheslav" 8 8 15 8 17 13 17 16 14) ("COUSINS, Steven" 5 6 6 5 6 6 6 6 6) ("STOJKO, Elvis" 4 1 1 2 2 2 3 3 2) ("GHEORGHE, Cornel" 22 22 20 18 19 21 21 20 19) ("DINEV, Ivan" 11 7 17 7 7 7 15 8 7) ("SKORNIAKOV, Roman" 19 24 18 21 21 20 18 19 22) ("TYLLESEN, Michael" 13 9 7 15 9 9 9 15 17) ("LEE, Kyu-Hyun" 23 21 23 20 24 25 26 23 24) ("LIU, Anthony" 25 26 27 25 25 22 24 22 21) ("LIU, David" 26 28 26 27 28 29 29 28 27) )) (setq oly-men-fs '( ("VIADANA, Gilberto" 23 22 23 22 23 23 23 23 22) ("HERNITS, Margus" 17 20 19 19 22 21 20 20 18) ("GHEORGHE, Cornel" 21 21 21 21 21 22 22 22 20) ("SKORNIAKOV, Roman" 20 19 20 18 18 17 19 21 21) ("MEIER, Patrick" 22 23 22 23 20 19 21 19 23) ("LEE, Kyu-Hyun" 24 24 24 24 24 24 24 24 24) ("HONDA, Takeshi" 10 12 12 13 10 8 14 12 11) ("LANGDON, Jeff" 8 15 9 9 11 13 11 11 9) ("TAMURA, Yamato" 13 18 16 16 17 18 17 16 16) ("SHMERKIN, Michael" 18 17 15 20 19 20 18 18 19) ("PASHKEVITCH, Igor" 16 16 13 17 14 14 13 14 17) ("ZAGORODNIUK, Viacheslav" 15 9 10 11 6 10 9 7 7) ("TYLLESEN, Michael" 11 8 11 8 9 12 15 8 13) ("WEISS, Michael" 7 6 5 6 7 6 6 5 5) ("DMITRENKO, Dmitry" 19 14 17 14 15 16 16 17 15) ("DINEV, Ivan" 12 10 14 15 12 15 10 15 14) ("VIDRAI, Szabolcs" 14 13 18 12 16 11 8 13 12) ("GUO, Zhengxin" 9 11 7 10 13 9 12 10 10) ("KULIK, Ilia" 1 1 1 1 1 1 1 1 1) ("ELDREDGE, Todd" 2 4 4 4 3 5 4 3 3) ("YAGUDIN, Alexei" 4 5 6 7 5 3 5 6 6) ("COUSINS, Steven" 6 7 8 5 8 7 7 9 8) ("CANDELORO, Philippe" 3 3 3 2 2 2 3 4 2) ("STOJKO, Elvis" 5 2 2 3 4 3 2 2 4) )) (setq oly-dance-cd1 '( ("PUNSALAN & SWALLOW" 6 6 6 7 5 7 7 7 7) ("MRAZOVA & SIMECEK" 13 13 13 12 13 12 12 13 12) ("GRISHUK & PLATOV" 2 1 1 1 1 2 1 1 1) ("GRUSHINA & GONCHAROV" 16 14 14 13 17 15 17 15 16) ("BOURNE & KRAATZ" 3 4 4 5 3 5 5 5 5) ("DENIAUD & JAFFREDO" 21 22 21 22 18 19 20 21 19) ("SMETANENKO & GEZALIAN" 20 23 24 21 24 23 23 23 24) ("JOSEPH & BUTLER" 22 21 23 23 21 24 24 20 21) ("WINKLER & LOHSE" 12 10 12 11 9 11 11 11 13) ("FUSAR-POLI & MARGAGLIO" 7 7 7 6 6 6 6 6 6) ("KAWAI & TANAKA" 23 20 20 20 22 22 21 24 23) ("LOBACHEVA & AVERBUKH" 5 8 5 4 7 4 4 4 4) ("GERENCSER & CAMERLENGO" 19 15 18 17 16 17 16 16 15) ("CHAIT & SAKHNOVSKY" 17 17 17 16 15 16 15 17 17) ("NOWAK & KOLASINSKI" 9 9 10 14 12 13 13 11 11) ("DROBIAZKO & VANAGAS" 8 11 8 9 8 9 9 10 10) ("DENKOVA & STAVIYSKI" 18 16 16 18 20 18 18 19 18) ("KRYLOVA & OVSYANNIKOV" 1 2 2 2 2 1 2 2 2) ("ROMANOVA & YAROSHENKO" 11 12 11 8 11 8 8 8 9) ("STEKOLNIKOVA & KAZARLYGA" 24 24 22 24 23 20 22 22 22) ("MONIOTTE & LAVANCHY" 10 5 9 10 10 10 10 9 8) ("ANISSINA & PEIZERAT" 4 3 3 3 4 3 3 3 3) ("LEFEBVRE & BRUNET" 15 18 15 19 19 21 19 18 20) ("NAVKA & MOROZOV" 14 19 19 15 14 14 13 14 14) )) (setq oly-dance-cd2 '( ("GERENCSER & CAMERLENGO" 19 18 17 16 16 15 17 15 16) ("CHAIT & SAKHNOVSKY" 14 16 14 17 15 16 15 16 14) ("NOWAK & KOLASINSKI" 10 10 10 12 12 12 11 12 13) ("DROBIAZKO & VANAGAS" 8 8 7 9 8 10 9 9 9) ("DENKOVA & STAVIYSKI" 18 21 22 19 19 18 18 18 18) ("KRYLOVA & OVSYANNIKOV" 2 1 2 2 2 2 2 2 2) ("ROMANOVA & YAROSHENKO" 11 12 11 8 10 8 8 8 8) ("STEKOLNIKOVA & KAZARLYGA" 23 19 19 24 22 19 20 22 24) ("MONIOTTE & LAVANCHY" 9 9 9 10 11 8 10 11 10) ("ANISSINA & PEIZERAT" 4 3 4 4 3 3 3 3 3) ("LEFEBVRE & BRUNET" 16 14 15 18 21 20 19 19 20) ("NAVKA & MOROZOV" 17 17 18 15 17 14 14 14 15) ("PUNSALAN & SWALLOW" 6 7 8 7 7 7 7 7 7) ("MRAZOVA & SIMECEK" 13 13 13 13 14 13 13 13 12) ("GRISHUK & PLATOV" 1 2 1 1 1 1 1 1 1) ("GRUSHINA & GONCHAROV" 15 14 16 14 13 17 16 17 17) ("BOURNE & KRAATZ" 3 4 3 3 4 4 4 4 5) ("DENIAUD & JAFFREDO" 24 22 24 22 18 21 21 21 19) ("SMETANENKO & GEZALIAN" 21 24 23 23 24 22 22 23 23) ("JOSEPH & BUTLER" 20 20 21 20 23 23 23 20 21) ("WINKLER & LOHSE" 12 11 12 11 9 11 12 10 11) ("FUSAR-POLI & MARGAGLIO" 7 6 6 5 6 6 6 6 6) ("KAWAI & TANAKA" 22 23 20 21 20 24 24 24 22) ("LOBACHEVA & AVERBUKH" 5 5 5 5 5 5 5 5 4) )) (setq oly-dance-od '( ("DENIAUD & JAFFREDO" 23 22 22 21 20 22 22 20 20) ("STEKOLNIKOVA & KAZARLYGA" 24 24 21 22 22 21 19 23 23) ("SMETANENKO & GEZALIAN" 21 23 19 24 24 24 24 24 24) ("NAVKA & MOROZOV" 20 18 20 16 14 17 15 17 17) ("GERENCSER & CAMERLENGO" 16 16 16 17 18 16 17 15 16) ("WINKLER & LOHSE" 11 11 9 10 8 9 11 9 9) ("DENKOVA & STAVIYSKI" 18 20 18 19 17 18 18 19 18) ("JOSEPH & BUTLER" 19 15 23 20 21 19 20 21 21) ("LEFEBVRE & BRUNET" 17 19 17 18 16 20 21 18 19) ("NOWAK & KOLASINSKI" 10 9 10 11 13 12 12 11 11) ("CHAIT & SAKHNOVSKY" 14 14 14 15 12 14 14 14 14) ("MRAZOVA & SIMECEK" 15 16 13 13 15 13 13 13 13) ("GRUSHINA & GONCHAROV" 13 13 15 14 19 15 16 16 15) ("KAWAI & TANAKA" 22 21 24 23 23 23 23 22 22) ("FUSAR-POLI & MARGAGLIO" 7 7 6 6 7 6 6 6 6) ("ANISSINA & PEIZERAT" 4 4 3 3 3 4 3 3 3) ("DROBIAZKO & VANAGAS" 8 8 8 8 9 8 8 8 8) ("LOBACHEVA & AVERBUKH" 5 5 5 5 5 3 4 4 4) ("PUNSALAN & SWALLOW" 6 6 7 7 6 7 7 7 7) ("GRISHUK & PLATOV" 2 2 1 1 1 1 2 1 2) ("MONIOTTE & LAVANCHY" 9 12 12 12 10 11 10 12 10) ("ROMANOVA & YAROSHENKO" 12 9 11 9 11 10 9 10 12) ("BOURNE & KRAATZ" 3 3 4 4 4 5 5 5 5) ("KRYLOVA & OVSYANNIKOV" 1 1 2 2 2 2 1 2 1) )) (setq oly-dance-fd '( ("KAWAI & TANAKA" 23 23 24 23 24 23 23 23 22) ("SMETANENKO & GEZALIAN" 24 24 23 24 23 24 24 24 24) ("DENIAUD & JAFFREDO" 21 19 20 22 20 20 21 19 18) ("STEKOLNIKOVA & KAZARLYGA" 22 22 22 21 21 22 22 22 21) ("JOSEPH & BUTLER" 20 21 21 20 22 21 20 20 23) ("LEFEBVRE & BRUNET" 18 18 19 19 19 19 19 21 19) ("NAVKA & MOROZOV" 15 16 17 16 16 16 14 14 14) ("DENKOVA & STAVIYSKI" 19 20 18 18 18 18 18 18 20) ("GERENCSER & CAMERLENGO" 17 17 16 17 17 17 17 17 17) ("NOWAK & KOLASINSKI" 11 11 11 11 13 15 12 13 13) ("CHAIT & SAKHNOVSKY" 16 13 14 15 12 14 15 15 16) ("GRUSHINA & GONCHAROV" 14 15 15 14 15 13 16 16 15) ("MRAZOVA & SIMECEK" 13 14 13 13 14 12 13 12 12) ("MONIOTTE & LAVANCHY" 12 12 12 12 10 11 11 11 11) ("ROMANOVA & YAROSHENKO" 9 10 10 9 11 9 9 9 9) ("DROBIAZKO & VANAGAS" 8 9 8 8 8 8 8 8 8) ("FUSAR-POLI & MARGAGLIO" 7 7 7 6 6 6 6 6 6) ("WINKLER & LOHSE" 10 8 9 10 9 10 10 10 10) ("PUNSALAN & SWALLOW" 6 5 6 7 7 7 7 7 7) ("ANISSINA & PEIZERAT" 5 4 4 4 4 3 3 3 3) ("BOURNE & KRAATZ" 2 3 3 3 3 4 4 4 4) ("GRISHUK & PLATOV" 1 1 1 1 1 1 1 1 1) ("KRYLOVA & OVSYANNIKOV" 3 2 2 2 2 2 2 2 2) ("LOBACHEVA & AVERBUKH" 4 6 5 5 5 5 5 5 5) )) (setq oly-ladies-sp '( ("BUTYRSKAYA, Maria" 3 3 3 3 4 3 3 3 4) ("LIASHENKO, Elena" 4 6 6 9 7 6 7 9 7) ("BONALY, Surya" 6 4 5 5 6 7 6 8 3) ("MALININA, Tatyana" 9 9 7 6 14 9 11 14 9) ("HUMAN, Shirene" 21 21 24 24 25 25 23 23 24) ("ARAKAWA, Shizuka" 13 5 16 14 10 17 12 16 13) ("CHEN, Lu" 7 7 4 4 3 4 4 4 5) ("LAVRENCHUK, Yulia" 15 14 13 16 18 13 14 13 15) ("JAKUPCEVIC, Ivana" 26 25 18 27 26 24 24 22 25) ("BOMBARDIERI, Tony" 28 28 28 26 27 27 27 28 27) ("LIPINSKI, Tara" 2 2 2 2 2 2 2 2 1) ("DREI, Alisa" 20 22 19 18 20 20 15 20 21) ("KULOVANA, Lenka" 16 15 15 17 16 15 16 18 17) ("KOPAC, Mojca" 23 23 23 22 24 26 22 19 16) ("VOROBIEVA, Yulia" 18 20 21 20 13 21 19 17 18) ("LAUTOWA, Julia" 22 18 20 21 23 22 20 24 19) ("KWAN, Michelle" 1 1 1 1 1 1 1 1 2) ("SEBESTYEN, Julia" 19 16 25 18 15 19 21 21 20) ("PENKOVA, Sofia" 27 27 27 28 28 28 28 27 28) ("HUBERT, Laetitia" 14 12 12 11 19 11 13 10 10) ("RECHNIO, Anna" 12 17 17 15 12 14 10 7 12) ("ANDRADE, Marta" 24 26 21 25 22 18 25 26 22) ("SOKOLOVA, Elena" 8 11 9 10 9 10 9 11 14) ("GRUNDBERG, Helena" 25 24 26 23 21 23 26 25 26) ("CARTER, Joanne" 10 10 8 12 11 16 17 12 11) ("SLUTSKAYA, Irina" 5 8 10 7 5 5 5 5 6) ("BOBEK, Nicole" 17 19 14 13 17 12 18 15 23) ("GUSMEROLI, Vanessa" 11 13 11 8 8 8 8 6 8) )) (setq oly-ladies-fs '( ("DREI, Alisa" 19 20 20 17 18 21 18 20 19) ("KOPAC, Mojca" 23 23 23 23 24 22 22 23 23) ("ANDRADE, Marta" 21 21 22 22 21 23 23 22 22) ("LAUTOWA, Julia" 12 14 13 11 10 18 16 13 12) ("SEBESTYEN, Julia" 11 12 15 18 16 14 15 18 15) ("HUMAN, Shirene" 24 24 24 24 23 24 24 24 24) ("ARAKAWA, Shizuka" 10 16 17 13 13 11 12 14 16) ("LAVRENCHUK, Yulia" 8 9 11 9 8 9 10 11 10) ("KULOVANA, Lenka" 17 19 18 19 17 16 19 21 21) ("BOBEK, Nicole" 14 18 16 16 19 19 20 19 17) ("VOROBIEVA, Yulia" 16 15 14 14 12 17 17 17 13) ("RECHNIO, Anna" 20 17 21 20 20 15 21 16 20) ("MALININA, Tatyana" 9 8 7 7 7 10 8 10 11) ("GUSMEROLI, Vanessa" 6 6 6 6 6 6 6 6 7) ("LIASHENKO, Elena" 18 10 9 12 9 12 9 9 8) ("SOKOLOVA, Elena" 7 7 12 8 11 7 7 7 6) ("HUBERT, Laetitia" 22 22 19 21 22 20 14 15 18) ("CARTER, Joanne" 12 11 10 15 14 13 13 12 14) ("KWAN, Michelle" 2 2 2 1 1 2 2 1 2) ("SLUTSKAYA, Irina" 4 3 4 5 3 4 5 5 5) ("CHEN, Lu" 3 4 3 3 4 5 4 4 4) ("BONALY, Surya" 15 13 8 10 15 8 11 8 9) ("LIPINSKI, Tara" 1 1 1 2 2 1 1 2 1) ("BUTYRSKAYA, Maria" 5 5 5 4 5 3 3 3 3) )) (defun obo-oly () (pop-to-buffer "OBO-Results") (end-of-buffer) (insert "\n\n1998 Olympic games men's short program\n\n") (obo-simulation oly-men-sp) (insert "\n\n1998 Olympic games men's free skate\n\n") (obo-simulation oly-men-fs) (insert "\n\n1998 Olympic games pairs short program\n\n") (obo-simulation oly-pairs-sp) (insert "\n\n1998 Olympic games pairs free skate\n\n") (obo-simulation oly-pairs-fs) (insert "\n\n1998 Olympic games compulsory dance 1\n\n") (obo-simulation oly-dance-cd1) (insert "\n\n1998 Olympic games compulsory dance 2\n\n") (obo-simulation oly-dance-cd2) (insert "\n\n1998 Olympic games original dance\n\n") (obo-simulation oly-dance-od) (insert "\n\n1998 Olympic games free dance\n\n") (obo-simulation oly-dance-fd) (insert "\n\n1998 Olympic games ladies short program\n\n") (obo-simulation oly-ladies-sp) (insert "\n\n1998 Olympic games ladies free skate\n\n") (obo-simulation oly-ladies-fs) ) (defun score-oly () (pop-to-buffer "Score-Results") (end-of-buffer) (insert "\n\n1998 Olympic games men's short program\n\n") (score-simulation oly-men-sp) (insert "\n\n1998 Olympic games men's free skate\n\n") (score-simulation oly-men-fs) (insert "\n\n1998 Olympic games pairs short program\n\n") (score-simulation oly-pairs-sp) (insert "\n\n1998 Olympic games pairs free skate\n\n") (score-simulation oly-pairs-fs) (insert "\n\n1998 Olympic games compulsory dance 1\n\n") (score-simulation oly-dance-cd1) (insert "\n\n1998 Olympic games compulsory dance 2\n\n") (score-simulation oly-dance-cd2) (insert "\n\n1998 Olympic games original dance\n\n") (score-simulation oly-dance-od) (insert "\n\n1998 Olympic games free dance\n\n") (score-simulation oly-dance-fd) (insert "\n\n1998 Olympic games ladies short program\n\n") (score-simulation oly-ladies-sp) (insert "\n\n1998 Olympic games ladies free skate\n\n") (score-simulation oly-ladies-fs) )