> (defun get-bins (data) (proplists:get_keys data)) > (defun format-bin (bin) (string:right (integer_to_list bin 2) 50 #\0)) > (defun get-str-bins (data) (lists:map #'format-bin/1 (get-bins data))) > (defun swap (data) (lists:map (match-lambda (((tuple a b )) (tuple b a))) data)) > (defun bin->abbr (bin data) (proplists:get_value bin data)) > (defun abbr->bin (team-abbr data) (proplists:get_value team-abbr (swap data))) > (defun abbr->name (team-abbr data) (proplists:get_value team-abbr data)) > (defun name->abbr (name name-data) (proplists:get_value name (swap name-data))) > (defun name->bin (name data name-data) (abbr->bin (name->abbr name name-data) data))