.\"
.\"     cook - file construction tool
.\"     Copyright (C) 1997, 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.534333,10.3162)
"stmt" ljust at (0,10.4002)
line from (0.534333,10.3162) \
        then to (0.6825,10.3162)
arc at (0.799167,10.3162) \
        rad 0.116667 \
        from (0.799167,10.4328) \
        to (0.799167,10.1995)
line from (0.799167,10.1995) \
        then to (0.908333,10.1995)
arc at (0.908333,10.3162) \
        rad 0.116667 \
        from (0.908333,10.1995) \
        to (0.908333,10.4328)
line from (0.908333,10.4328) \
        then to (0.799167,10.4328)
"\f[CW]if\fP" at (0.85375,10.3162)
line from (0.599167,10.3439) \
        then to (0.6825,10.3162) \
        then to (0.599167,10.2884)
line from (1.025,10.3162) \
        then to (1.17317,10.3162)
line from (1.17317,10.1995) \
        then to (1.7075,10.1995) \
        then to (1.7075,10.4328) \
        then to (1.17317,10.4328) \
        then to (1.17317,10.1995)
"expr" at (1.44033,10.3162)
line from (1.08983,10.3439) \
        then to (1.17317,10.3162) \
        then to (1.08983,10.2884)
line from (1.7075,10.3162) \
        then to (1.85567,10.3162)
arc at (1.97233,10.3162) \
        rad 0.116667 \
        from (1.97233,10.4328) \
        to (1.97233,10.1995)
line from (1.97233,10.1995) \
        then to (2.26667,10.1995)
arc at (2.26667,10.3162) \
        rad 0.116667 \
        from (2.26667,10.1995) \
        to (2.26667,10.4328)
line from (2.26667,10.4328) \
        then to (1.97233,10.4328)
"\f[CW]then\fP" at (2.1195,10.3162)
line from (1.77233,10.3439) \
        then to (1.85567,10.3162) \
        then to (1.77233,10.2884)
line from (2.38333,10.3162) \
        then to (2.5315,10.3162)
line from (2.5315,10.1995) \
        then to (3.05933,10.1995) \
        then to (3.05933,10.4328) \
        then to (2.5315,10.4328) \
        then to (2.5315,10.1995)
"stmt" at (2.79542,10.3162)
line from (2.44817,10.3439) \
        then to (2.5315,10.3162) \
        then to (2.44817,10.2884)
line from (3.05933,10.3162) \
        then to (3.2075,10.3162)
line from (3.2075,10.3162) \
        then to (4.29542,10.3162)
line from (4.21208,10.3439) \
        then to (4.29542,10.3162) \
        then to (4.21208,10.2884)
line from (4.29542,10.3162) \
        then to (5.38333,10.3162)
arc cw at (3.2075,10.1495) \
        rad 0.166667 \
        from (3.2075,10.3162) \
        to (3.37417,10.1495)
arc at (5.38333,10.1495) \
        rad 0.166667 \
        from (5.38333,10.3162) \
        to (5.21667,10.1495)
line from (3.37417,10.1495) \
        then to (3.37417,10.1495)
arc at (3.54083,10.1495) \
        rad 0.166667 \
        from (3.37417,10.1495) \
        to (3.54083,9.98284)
line from (5.21667,10.1495) \
        then to (5.21667,10.1495)
arc cw at (5.05,10.1495) \
        rad 0.166667 \
        from (5.21667,10.1495) \
        to (5.05,9.98284)
line from (3.54083,9.98284) \
        then to (3.7075,9.98284)
arc at (3.82417,9.98284) \
        rad 0.116667 \
        from (3.82417,10.0995) \
        to (3.82417,9.86617)
line from (3.82417,9.86617) \
        then to (4.09067,9.86617)
arc at (4.09067,9.98284) \
        rad 0.116667 \
        from (4.09067,9.86617) \
        to (4.09067,10.0995)
line from (4.09067,10.0995) \
        then to (3.82417,10.0995)
"\f[CW]else\fP" at (3.95742,9.98284)
line from (3.62417,10.0106) \
        then to (3.7075,9.98284) \
        then to (3.62417,9.95506)
line from (4.20733,9.98284) \
        then to (4.3555,9.98284)
line from (4.3555,9.86617) \
        then to (4.88333,9.86617) \
        then to (4.88333,10.0995) \
        then to (4.3555,10.0995) \
        then to (4.3555,9.86617)
"stmt" at (4.61942,9.98284)
line from (4.27217,10.0106) \
        then to (4.3555,9.98284) \
        then to (4.27217,9.95506)
line from (4.88333,9.98284) \
        then to (5.05,9.98284)
line from (5.38333,10.3162) \
        then to (5.5315,10.3162)
line from (5.44817,10.3439) \
        then to (5.5315,10.3162) \
        then to (5.44817,10.2884)
.PE