#!/bin/sh
curl -L urx.nu/ibQd | nkf -wZ | \
sed -n -r '/<p>/{s/\(([0-9]*)\)</\t\1\t</;h;n;y@\(\)@\t\t@;x;G;s@</?p>@@g;y@/@\t@;s/\n//;p}' | \
tr -s '\t' | awk -F'\t' 'NF==7' | cut -f1,3,5 | \
cat list | egison -T -F1,1s -F3s -s '(match-all-lambda
                            (multiset [string integer string])
                              [ <cons [$n1 $tal1 $cup]
                                  <cons [$n2 (& ?(gt? $ tal1) $tal2),cup]
                                    <cons [$n3 (& ?(gt? $ tal2) $tal3) ,cup]
                                      _>>>
                                        [cup [n1 tal1] [n2 tal2] [n3 tal3]]])'

# [結果]
# "C"     "新人女王様"    165     "蒼夜(せいや)女王様"    170     "雪麗(せつら)女王様"    177
# "C"     "新人女王様"    165     "蒼夜(せいや)女王様"    170     "アリス女王様"  178
# "C"     "新人女王様"    165     "雪麗(せつら)女王様"    177     "アリス女王様"  178
# "C"     "蒼夜(せいや)女王様"    170     "雪麗(せつら)女王様"    177     "アリス女王様"  178
# "C"     "新人女王様"    165     "雅(みやび)女王様"      168     "蒼夜(せいや)女王様"    170
# "C"     "新人女王様"    165     "雅(みやび)女王様"      168     "雪麗(せつら)女王様"    177
# "C"     "新人女王様"    165     "雅(みやび)女王様"      168     "アリス女王様"  178
# "C"     "雅(みやび)女王様"      168     "蒼夜(せいや)女王様"    170     "雪麗(せつら)女王様"    177
# "C"     "雅(みやび)女王様"      168     "蒼夜(せいや)女王様"    170     "アリス女王様"  178
# ...