(translation_unit (comment) (subroutine (subroutine_statement name: (name)) (comment) (comment) (comment) (comment) (comment) (comment) (comment) (implicit_statement (none)) (variable_declaration (intrinsic_type) (identifier) (identifier)) (variable_declaration (intrinsic_type) (size (argument_list (keyword_argument name: (identifier) value: (number_literal)))) (identifier) (identifier)) (ERROR) (assignment_statement left: (identifier) (ERROR) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (comment) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (comment) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (assignment_statement left: (identifier) right: (number_literal)) (assignment_statement left: (identifier) right: (string_literal)) (assignment_statement left: (identifier) right: (string_literal)) (subroutine_call subroutine: (identifier) (argument_list (identifier) (identifier) (identifier) (identifier))) (write_statement (unit_identifier (number_literal)) (format_identifier (string_literal))) (ERROR (UNEXPECTED '|')) (call_expression (parenthesized_expression (identifier)) (ERROR) (argument_list (identifier))) (ERROR) (end_subroutine_statement (name))))