// fun stuff

FUNCTION main( )

	local boo = new( "goo", 1, "Neil", "Judy" )
	return( 1 )

END


CLASS goo
  PUBLIC:
    local foo
    
    METHOD new( goo, guy, pan )

    	::foo = guy
    	::chew( goo, goo )
    	::lou( guy, pan )
    	::atChew( "U", guy, ::foo )
    	::pan( pan )
    	
    	return( 1 )
    END


	METHOD chew( me, poo )
		return( println( "" + poo + " on " + me + "," ) )
	END


	METHOD lou( gee, wiz )
		println( gee + " and " + wiz + "'s favorite."  )
		return( 0 + gee )
	END
	

	METHOD atChew( u, b, zip )
		local fck, ed=""
	
		if ( u == "U" )
			u = "ok then"
		elseif ( u == "ME" )
			u = "hey, wait a minute"
		else
			u = "Who the hell are you?"
		end
		fck = u
		zip = b + fck + ed
		println( fck + "!!!" )
	END
	

	METHOD pan( fry )
	
		local loudly = 1

		if ( fry == "Grease" )
			return( "StartHeart" )
		elseif ( fry == "Beans" )
			return( "Don't fart" )
		else
			sndbeep( loudly )
		end
		
		print( "Hi guy, on " )
		print( fry )
		print( "'s thigh " ) 
		print( ::foo )
		println( " has an eye." )
		println( "O", "h", " ", "m", "y", "!" )

		return( 1 )
	END
	
END