"scopshqs" ".txt" filer
{
 read dup <_>
 empty !sels
 emptyx
%
% stack: shqs [ . . . ] build count
%
 countdown
 {
  ^"|" &" " &
  exch
  dup &";" &:sels
  quoter &" !Scope.Shapen" catcr &
 } for
%
% stack: shqs build
%
 exch
 0 !counter
 {
  "%%" slice
  isnull ?
%
% stack: build shqs-left shqs-right
%
  tuck
%
% stack: shqs-right build shqs-left
%
  +counter &" !Scope.Shape" & &
  exch
%
% stack: build shqs-right
%
 } loop
 pop2
%
% stack: build
%
 catcr
 "scopshps" ".txt" filer
 {
%
% stack: build shps-file
%
  write
 }
 {
  pop
 } ifelse
 _sels -1 right
 @!Scop
}
{
} ifelse