(def butlast (x)
  (cut x 0 (- (len x) 1)))