linguist/samples/HyPhy/profile_test.bf

#profile START;

s = 0;
m = {5,1};

for (k=0; k<250000; k=k+1)
{
	s = s + k;
	t = Random (0,5);
	m [t] = m [t] + 1;
}

#profile PAUSE;

s2 = 0;
for (k=1; k<10000; k=k+1)
{
	s2 = s2+1/k;
}

#profile _hyphy_profile_dump;

stats  			= _hyphy_profile_dump["STATS"];
_profile_summer	= {1,Rows(stats)};
_profile_summer = _profile_summer["1"] * stats;
_instructions   = _hyphy_profile_dump["INSTRUCTION"];
_indices	    = _hyphy_profile_dump["INSTRUCTION INDEX"];

fprintf (stdout, "\nTotal run time (seconds)      : ", Format(_profile_summer[1]/1000000,15,6),
				 "\nTotal number of steps         : ", Format(_profile_summer[0],15,0), "\n\n");
				 
for (k=0; k<Columns(_instructions); k=k+1)
{
	fprintf (stdout, Format (_indices[k],6,0), " : ", _instructions[k], "\n\tCall count: ", stats[k][0], 
												   "\n\tTime (seconds): ", stats[k][1]/1000000, "\n");
}