Interactively

> A:=diag(companion(x^2-2*x+1,x),1,2,companion(x^2-3*x+2,x));

> FROBENIUS(A,inter);

Input the characteristic of the field and after a semicolon: 0;

Answer Y; to confirm and N; to change it: Y;

Input Y to confirm, N in another case and after a semicolon: Y;

> 1;

Answer Y; to confirm and N; in other case: Y;

Answer Y; to confirm and N; in other case: Y;

Input the order of the obtained block and after a semicolon: 3;

Answer Y; to confirm and N; in other case: Y;

Input the order of the new obtained block and after a semicolon: 2;

Answer Y; to confirm and N; in other case: Y;

Input the order of the new obtained block and after a semicolon: 1;

We take out the results and test the output