yoinked from d on dmoj

>>>>+[>,----------]+[<]>->>[<-------------------------------------->>]
>>>>>+>+>+>+>+>+[++++++++<]<<<<<
[
  -
  <[->+>>>>]
  <[->+++++++++>+>>>]
  <[->+++++++++>+++++++++>+>>]
  <[->+++++++++>+++++++++>+++++++++>+>]
  <[
    >+[
      ->,----------[<+>-------------------------------------->[->++<]>[-<+++++>]<<[->+<]]<
    ]
    >>[->>
      >[->>>>>>]
      >[-<+++++++++>>>>>>>]
      >[-<+++++++++<+++++++++>>>>>>>>]
      >[-<+++++++++<+++++++++<+++++++++>>>>>>>>>]
      >[-<+++++++++<+++++++++<+++++++++<+++++++++>>>>>>>>>>]
      >[-<+++++++++<+++++++++<+++++++++<+++++++++<+++++++++>>>>>>>>>>>]
      <<<<<<<<<<<<
    <<]
    <<
  ]<
]
>>>>>>>>>>>>+>+>+>+>+>+
[
  >++++++++++<[->-<]
  >>[[-]<<+>>]+<<
  >[<+>>>]>[>>]<<<<
  [[-]>++++++++++++++++++++++++++++++++++++++++++++++++.<]
  >>-<<<
]
>>
<+>[[-]<->]<[+++++++++++++++++++++++++++++++++++++++++++++++.<]
++++++++++.