あ、頂いたプログラムは
pick(["prog1nd", "prog2nd"], ["tokyo", "fukushima"], "20020926", 42..43, 2..3)
のように、 42..43, 2..3) 変更しました。
　　　　　　　　　^^^^^^
printfだと、レコード値が二つひっついて出力されます。
-------------------------------------------------------
tokyo(prog1nd) 1274327 1304430 1334534
fukushima(prog1nd) 1288107 1318300 1348493
tokyo(prog2nd) 1274327 1304430 1334533
fukushima(prog2nd) 1288107 1318300 1348493