% This is an example file.
% To run type "kac example.kac"
% Just typing "kac" puts you in interactive mode
%
% Anything starting with % is a comment
% 
% "Commands" lists all commands
% Commands are case insensitive and may be abbreviated
% "Help Command" gives help for "Command"
% Help system is under construction and partly incorrect
% 
Algebra B 2 3           % select an algebra
Display                 % display its spectrum	
S                       % display all S
Fusion                  % display all Fusion rules
Fusion 1 2              % display 1 x 2
S 2 3                   % display S_23
Tensor                  % Switch to tensor mode
G A 1 1                 % Add tensor factor
G A 1 1
H A 1 2                 % Add denominator factor for coset		
Current 1 1 1           % Add a simple current
Display                 % This should give you the Ising model spectrum 
S
Fusion
Reset Tensor            % Reset tensor mode
G D 4 2                 % This is the famous D4 level 2 case
Current 1
Current 3
Display
S
Fusion
% This is an example of a procedure (factorial n)
Procedure fac(n) {
  m=1
  for l=1 l<=n l=l+1 m=m*l;
  evaluate m;
  }
fac 200;
Quit