(let ((sliders (map (cut qt:find mainwindow <>) '("sl1" "sl2" "sl3" "sl4")))
        (signals '("valueChanged(int)" "valueChanged(int)" "valueChanged(int)" "valueChanged(int)"))
        (fns (list (qt:receiver (cut set! a <>))
                   (qt:receiver (cut set! b <>))
                   (qt:receiver (cut set! c <>))
                   (qt:receiver (cut set! d <>)) ))
        (slots '("slot(int)" "slot(int)" "slot(int)" "slot(int)")) )
    (map qt:connect sliders signals fns slots) )