adam@1547: fun showList l = case l of adam@1547: [] => "[]" adam@1547: | h :: t => strcat (strcat (show h) " :: ") (showList t) adam@1547: adam@1547: fun rpcFunc l : transaction string = adam@1547: case l of h :: _ => return (showList h) | [] => return "[]" adam@1545: adam@1545: fun main () : transaction page = return adam@1545: