#!/usr/local/bin/perl

open ( F, "balance" );

while ( <F> )
{
    print $_;
}