if (/^I/) {
                        read_cal(substr($_,1), $mode);
                } else {
                        print "|$_|\n";
                }