2556 Edge

2556 -- Edge
PostScriptでカクカク折れ曲がった線を描こう！という問題。
折れ曲がり方には進行方向に対して右に曲がる方法(V)と左に曲がる方法(A)がある。初期位置は(300,420)で初速度は(10,0)。入力文字がVなら右に、Aなら左に速度を保ったまま曲がり、その時々の位置を出力するというもの。入力文字列は最長で200文字である。
psには詳しくないので、moveto/lineto/stroke/showpageというものが何なのかは判っていません。
GCCで182byte。

n,v,y;
char a[201];
main(x){
  for(;gets(a);puts("stroke\nshowpage"))
    for(x=300,n/=y=420,puts("300 420 moveto"),v=10;n&1?y+=v:(x+=v),printf("%d %d lineto\n",x,y),a[n];n++)
      a[n]+n&1?v=-v:0;
}

kosakとは違ってベクトル成分は1つしかもってません。
putsは一つにした方が短いのだろうか、、、謎。