(port-fold(^`r((if(eq? . `'=)(if(print r)-)+)r 1))-1 read)