((rec'i((^`s'(+(guard,(`(~ s 0)0)`(~ s i)i)1))display(read-line)))0)