digits = '1234567890'
loop  line = input   :f(end)
      line fence arb span(digits) . d1 (span(' ') | '')  arb . p2 break(')') ')' (span(' ') | '') span(digits) . d2 
      g = 0.0
      line fence arb span(digits) . d1 (span(' ') | '') 'gr cr' arb . p2 break(')') ')' (span(' ') | '') span(digits) . dx :f(sk1)
      g = g + d1 * 1
sk1      line fence arb span(digits) . d1 (span(' ') | '') 'cgr cr' arb . p2 break(')') ')' (span(' ') | '') span(digits) . dx :f(sk2)
      g = g + d1 * 1
sk2      output = g ' ' d2 :(loop)
end