USING: arrays sequences ;
IN: obj.alist
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PREDICATE: alist < sequence [ pair? ] all? ;