let
scan = gen_scan (
fun
pos score l
->
(pos, score) :: l) []