-//modify1(s) :: [Char] -> [Char] {
-// //s.hd = 'a';
-// s.tl = [];
-// return s;
-//}//
-
-//modify2(c) :: Char -> Void {
-// c = 'a';
-//}//
-
-//main() {
-// var zs = "bar";
-// var zc = 'b';
-// var zss = modify1(zs);
-// modify2(zc);//
-
-// print("zs was bar, is now: ");
-// print(zs);
-// print(", m1 returned: ");
-// print(zss);
-// print("\n");
-// print("zc was 'b', is now: ", zc, "\n");
-//}