take(Object) :-
  i_am_at(Place),
  at(Object, Place),
  retract(at(Object, Place)),
  assert(at(Object, in_hand)),
  print('OK.'),
  nl.