#!/usr/bin/perl

$akt_lvl = 0;

while(<STDIN>) {
  print $akt_lvl.": ".$_;

  @d1 = split(/\{/, $_);
  @d2 = split(/\}/, $_);

  $akt_lvl = $akt_lvl + @d1 - @d2;
}