Create 1_46.scm

Created sqrt function based on iterative-improve