#!/usr/bin/tclsh

set dim 30
set bdim 2
 
set state get_option
foreach arg $argv {
        switch -exact -- $state {
                get_option {
                        switch -glob -- $arg {
                                -d* { set state dim }
                                -b* { set state bdim }
                                -h* {
                                        puts {generate.tcl -d dim -b bdim [-help]}
                                        puts {avec dim et bdim 2 nombres entiers.}
                                        puts {Valeur par defaut de dim 10, de bdim 2.}
                                        puts {Genere sur la sortie standard un texte contenant une matrice de dimension dim*dim et une autre de dimension dim*bdim}
                                        exit
                                }
                        }
                }
                dim {
                        set dim $arg
                        set state get_option
                }
                bdim {
                        set bdim $arg
                        set state get_option
                }
        }
}
 
puts $dim
for { set i 0 } { $i < $dim } { incr i } {
        for { set j 0 } { $j < $dim } { incr j } {
                puts -nonewline "[expr 100.0*rand()] "
        }
        puts ""
}
puts $bdim
for { set i 0 } { $i < $dim } { incr i } {
        for { set j 0 } { $j < $bdim } { incr j } {
                puts -nonewline "[expr 100.0*rand()] "
        }
        puts ""
}