load 'readline';
while (1) {
  $code = <>;
  break if $code eq "q";
  if ($code != '') {
    $obj = eval $code;
    if (kind $obj eq "Error") {
       say $obj;
    } else {
       say '=> ', $obj:
    }
  } 
}