implement standard library: (srfi 1)

merge plz