(@up    sampler select :sample-up)
(@w     sampler select :sample-up)

(@down  sampler select :sample-down)
(@s     sampler select :sample-down)

(@left  sampler select :sample-left)
(@a     sampler select :sample-left)

(@right sampler select :sample-right)
(@d     sampler select :sample-right)

(@r     sampler record/toggle :sample)