implement standard library : (srfi 1)

merge plz