add list library
* lib/kirjasto/työkalu.scm: move function flatten to list library