* lib/kirjasto/avain.scm: new function add