* lib/kirjasto/työkalu.scm: rewrite as r7rs library