sub print {
     shift;
     $main->OutPut->Append(@_); 
}