KSPLIT

1→θ
While θ!=5
1→Z
While Z!=5
[I](θ,Z)→[G](θ,Z)
Z+1→Z
End
θ+1→θ
End

1→θ
While θ!=5
5→Z
While Z!=9
[I](θ,Z)→[H](θ,Z-4)
Z+1→Z
End
θ+1→θ
End