//
// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// huge.c -- 
//
// Author           : Richard C. Bilson
// Created On       : Wed May 27 17:56:53 2015
// Last Modified By : Peter A. Buhr
// Last Modified On : Tue Mar  8 22:16:32 2016
// Update Count     : 2
//

int huge( int n, forall( T ) T (*f)( T ) ) {
	if ( n <= 0 )
		return f( 0 );
	else
		return huge( n - 1, f( f ) );
}

// Local Variables: //
// tab-width: 4 //
// compile-command: "cfa huge.c" //
// End: //