(@up    sample-select :sample-up)
(@down  sample-select :sample-down)
(@left  sample-select :sample-left)
(@right sample-select :sample-right)
(@r     sample-record-toggle :sample)