.\"
.\"     cook - file construction tool
.\"     Copyright (C) 1998, 2007, 2008 Peter Miller
.\"
.\"     This program is free software; you can redistribute it and/or modify
.\"     it under the terms of the GNU General Public License as published by
.\"     the Free Software Foundation; either version 3 of the License, or
.\"     (at your option) any later version.
.\"
.\"     This program is distributed in the hope that it will be useful,
.\"     but WITHOUT ANY WARRANTY; without even the implied warranty of
.\"     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
.\"     GNU General Public License for more details.
.\"
.\"     You should have received a copy of the GNU General Public License
.\"     along with this program. If not, see
.\"     <http://www.gnu.org/licenses/>.
.\"
.PS
line from (0,10.3162) \
        then to (0.611167,10.3162)
"stmt" ljust at (0,10.4002)
line from (0.611167,10.3162) \
        then to (0.759333,10.3162)
line from (0.759333,10.3162) \
        then to (1.60592,10.3162)
arc at (1.72258,10.3162) \
        rad 0.116667 \
        from (1.72258,10.4328) \
        to (1.72258,10.1995)
line from (1.72258,10.1995) \
        then to (2.14908,10.1995)
arc at (2.14908,10.3162) \
        rad 0.116667 \
        from (2.14908,10.1995) \
        to (2.14908,10.4328)
line from (2.14908,10.4328) \
        then to (1.72258,10.4328)
"\f[CW]setenv\fP" at (1.93583,10.3162)
line from (1.52258,10.3439) \
        then to (1.60592,10.3162) \
        then to (1.52258,10.2884)
line from (2.26575,10.3162) \
        then to (2.41392,10.3162)
line from (2.41392,10.1995) \
        then to (2.94825,10.1995) \
        then to (2.94825,10.4328) \
        then to (2.41392,10.4328) \
        then to (2.41392,10.1995)
"expr" at (2.68108,10.3162)
line from (2.33058,10.3439) \
        then to (2.41392,10.3162) \
        then to (2.33058,10.2884)
line from (2.94825,10.3162) \
        then to (3.09642,10.3162)
arc at (3.21308,10.3162) \
        rad 0.116667 \
        from (3.21308,10.4328) \
        to (3.21308,10.1995)
line from (3.21308,10.1995) \
        then to (3.31442,10.1995)
arc at (3.31442,10.3162) \
        rad 0.116667 \
        from (3.31442,10.1995) \
        to (3.31442,10.4328)
line from (3.31442,10.4328) \
        then to (3.21308,10.4328)
"\f[CW]=\fP" at (3.26375,10.3162)
line from (3.01308,10.3439) \
        then to (3.09642,10.3162) \
        then to (3.01308,10.2884)
line from (3.43108,10.3162) \
        then to (3.57925,10.3162)
line from (3.57925,10.1995) \
        then to (4.17842,10.1995) \
        then to (4.17842,10.4328) \
        then to (3.57925,10.4328) \
        then to (3.57925,10.1995)
"exprs" at (3.87883,10.3162)
line from (3.49592,10.3439) \
        then to (3.57925,10.3162) \
        then to (3.49592,10.2884)
line from (4.17842,10.3162) \
        then to (4.32658,10.3162)
arc at (4.44325,10.3162) \
        rad 0.116667 \
        from (4.44325,10.4328) \
        to (4.44325,10.1995)
line from (4.44325,10.1995) \
        then to (4.49692,10.1995)
arc at (4.49692,10.3162) \
        rad 0.116667 \
        from (4.49692,10.1995) \
        to (4.49692,10.4328)
line from (4.49692,10.4328) \
        then to (4.44325,10.4328)
"\f[CW];\fP" at (4.47008,10.3162)
line from (4.24325,10.3439) \
        then to (4.32658,10.3162) \
        then to (4.24325,10.2884)
line from (4.61358,10.3162) \
        then to (5.46017,10.3162)
line from (5.46017,10.3162) \
        then to (5.60833,10.3162)
line from (5.525,10.3439) \
        then to (5.60833,10.3162) \
        then to (5.525,10.2884)
.PE