/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
  %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}

    Source: geocities.com/southbeach/breakers/Breakers/8178/mirc

               ( geocities.com/southbeach/breakers/Breakers/8178)                   ( geocities.com/southbeach/breakers/Breakers)                   ( geocities.com/southbeach/breakers)                   ( geocities.com/southbeach)