let code_url code =     String.map code ~f:(function       | 'a' .. 'z' | 'A' .. 'Z' | '0' .. '9' as c -> c       | other -> '_')     ^ ".html"