include(`test/Object-Based.txt'):

`BEGIN DEFINTIONS':

let(labors,<
  <`service',75>,
  <`kram',115>,
  <`toilet',120>,
  <`sink',135>,
  <`main',165>,
  <`cam',180>,
  <`maincam',195>,
  <`jet',{$((adjustments)#`secondman')((labors)#`maincam')}>,
  <`jetnight',{$((adjustments)#`secondmannight')((labors)#`maincam')}>
  <`none',0>,
>):

let(materials,<
  let(toilet,<<`pullrmt',55>,<`pull',25>,<`rmt',25>,<`wax',5>,<`supply',15>,<`flange',21>,<`johnny',7.50>,<`zurn',38>,<`sloanvac',7.50>,<`none',0>>),
  let(leadfitall,<<`1-2.5',12>,<`3-4.5',21>,<`5-6',34>,<`none',0>>),
  let(absplug,<<`1-3',6>,<`3.5-4',14>,<`4.5+',17>,<`none',0>>),
  let(brassraised,<<`1-2',15>,<`3-3.5',22>,<`4',34>,<`5',44>,<`6',70>,<`none',0>>),
  let(brassrecessed,<<`1-3',15>,<`3.5',22>,<`4-5',44>,<`6',70>,<`none',0>>),
  let(expandplug,<<`1-3',10>,<`3.5-5',15>,<`5+',19>,<`none',0>>),
  let(bandclamp,<<`k150',25>,<`k200',25>,<`cp150',18>,<`cp200',18>,<`p300',26>,<`p400',26>,<`none',0>>),
  let(saddle,<<`1-3',25>,<`4',29>,<`5',30>,<`6',39.50>,<`none',0>>),
  let(fuel,<<`standard',5>,<`none',0>>)
>):

let(adjustments,<
  <`secondman',{[x]+40}>,
  <`secondmannight',{[x]+60}>,
  <`night',{[x]+25}>,
  <`discount',{[x]*.9}>,
  <`mataxed',{[x]*1.0625}>,
  <`cttaxed',{[x]*1.0635}>,
  <`none',{[x]}>
>):

`BEGIN CALCULATIONS':

let(labortotal,$({$((adjustments)#[z])($(((labors)#[y]))())*[x]})
(2,`maincam',`none')
):

let(materialtotal,reduce($({[x]+[y]}),
<
(toilet)#`pullrmt',
$((adjustments)#`mataxed')((absplug)#`none'),
$((adjustments)#`none')((fuel)#`standard')
>
)):

print_(labortotal)+(materialtotal)