#!/usr/bin/perl -w
# Books of Pumpkins, etc.  Extensions to Quacks of Quedlinburg
#  SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
# Copyright 2020-2022 Ian Jackson

use strict;

BEGIN { unshift @INC, '.'; }
use Quacks;

ps_head();

sub o {
  local $_;
  for (@_) { $ps_framing .= $_ }
}

o <<END;
0 0 moveto 20 20 lineto stroke
END

print $ps_framing or die $!;
