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

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

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

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

(@r record/begin :sample)