Pefunge

http://d.hatena.ne.jp/ku-ma-me/20070529/

で「G」はなくてもPefungeで記述できるので無駄ではないかとまめにいったら、
スタックの先頭しか入れ替えられないので、無理ではないかというので、
とりあえず画期的な方法で実装してみる。

"Hello, world!"                v


                get 13th                     
                  !                        >      >$ $v<
                  2            &           7 >$$\1|   :
                  |&+94        |>       ?\&\0|        ?$
                  ?                          > 2!2<   _
v             $\$\<                          ^  1     |^
 ["Hello, world",stdin]                               :
&>                              ^                     _
>|            >2!  get 4th                        |0-1<
 >          4&|                            ^    $$<   >$?$\1!
              ?
     !2&  $\$\<
    print!

左半分はスタックからまず13番目の値(stdio)を取得し、続いて4番目の値('r')を取得して表示する。

右半分でGを実装している。