#!/usr/bin/perl -w

use strict;

my @lines = <>;

# Find render function.
my @render = ();
for(my $i = 0; $i < scalar @lines; $i++)
{
   if( $lines[$i] =~ /^render=->/ )
   {
      $lines[$i] = "\n";
      my $j = $i + 1;
      for(; !($lines[$j] =~ /^\}/); $j++)
      {
         push @render, $lines[$j];
         $lines[$j] = "\n";
      }
      $lines[$j] = "\n";
      last;
   }
}

# Replace render.call lines with render function.
foreach my $i (@lines)
{
   if( $i =~ /^render\.call/ )
   {
      print foreach @render;
   }
   else
   {
      print $i;
   }
}