Heiken Ashi smoothed

Hi there!

I´m a newbie and this is my first indicator query 🙂

I found this in the web, but it doesen´t work in this state, its giving syntax error and I don´t have the skill yet to correct it.
Could someone have mercy with me? I think it is a quite simple error..

This is the link, it´s in french.
http://sohocool.over-blog.com/article-29022036.html

Here is the code: Syntax error line 28, 30

/// Heiken ashi smoothed histogram

// Average variable p = 1 period (default = 6) and t = mm Type (default smoothing wilder)

// Average variable 2 p1 = period (default = 2) and t1 = mm type (weighted default)

{// t and the deviation of the mean: 
t = 0 = simple average 
t = 1 = exponential average 
t = 2 weighted average = 
t = 3 = average wilder 
t = 4 = average triangular 
t = 5 = average end-point 
t = 6 = average time series}

// set histogrammme


if BarIndex> p Then 
mo = average [p, t] (open) 
mc = average [p, t] (close) 
ml = average [p, t] (low) 
mh = average [p, t] (high) 
endif


haopen ounce = mo

haclose = (mc mo + + + mh ml) / 4 
if BarIndex> p + 1 then 
haopen = (haopen [1] + haclose [1]) / 2 
endif

haopen1 average = [p1, t1] (haopen) 
haclose1 average = [p1, t1] (haclose)

if haclose1> haopen1 Then 
a = 1 
else 
a = -1 
endif


return 1 colored by aa as "Smoothed Heiken Histo"

///////// end


cloud code to open in the graph:


/// Heiken ashi smoothed histogram

// Average variable p = 1 period (default = 6) and t = mm Type (default smoothing wilder)

// Average variable 2 p1 = period (default = 2) and t1 = mm type (weighted default)
{t and the deviation of the mean: 
t = 0 = simple average 
t = 1 = exponential average 
t = 2 = weighted average 
t = 3 = average wilder 
t = 4 = average triandulaire 
t = 5 = average end-point 
t = 6 = average time series}

if BarIndex> p Then 
mo = average [p, t] (open) 
mc = average [p, t] (close) 
ml = average [p, t] (low) 
mh = average [p, t] (high) 
endif


haopen ounce = mo

haclose = (mc mo + + + mh ml) / 4 
if BarIndex> p + 1 then 
haopen = (haopen [1] + haclose [1]) / 2 
endif

haopen1 average = [p1, t1] (haopen) 
haclose1 average = [p1, t1] (haclose)


haopen1 return as "Smoothed Heiken Nuageopen" haclose1 as "Smoothed Heiken nuageclose"


///////end

HAsmoothed.png