/square { dup mul } def
/plus1 { 1 add } def
/sqPlus1{ square plus1 } def
% if the task really demands we make a function called "compose", well
/compose { def } def % so now we can say:
/sqPlus1 { square plus1 } compose