> (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))