, set the first cell
[ > ++ > + << - ] copy cell(ptr) to cell(ptr x 2) and two times to cell(ptr x 1)
>>[ << + >> - ] << move cell(ptr x2) back to cell(ptr) and move to cell(ptr)
> move forward to restart (not working, as no nested loops are implemented)
. output the double