#! /usr/bin/tclsh
# change this to your path to tclsh...

if { $argc < 1  } {
    puts "Usage: $argv0 filename"
    exit 1
}

set filename [ lindex $argv 0 ]

source $filename

set fileID [ open fragen w 0644 ]

puts $fileID $no_questions

for { set i 0 } { $i < $no_questions } { incr i } {
    set rege [lrange $answer($i) 1 1]
    set rege [string trim $rege \{\}\ ]
    set answ [lrange $answer($i) 0 0]
    set answ [string trim $answ \{\}\ ]
    set quest $question($i)

    set line "$quest|$answ|$rege"
    puts $fileID $line
}

close $fileID