cutpaste(aaa, Arg) :-
    body(aaa, Arg).
cutpaste(Key, Arg) :-
    member(Key, [bbb]),
    neck,
    body(Key, Arg).